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TRANSPORTABLE  MAPS  SOFTWARE 


SECTION  ONE 


INTRODUCTION  AND  SUMMARY 


Micro- Adaptive  Picture  Sequencing  (MAPS)  is  a  computational ly-efficient, 
contrast-adaptive,  variable-resolution  spatial  image  encoding  technique. 
This  document  describes  the  implementation  of  the  general  MAPS  process  as 
a  transportable  software  ensemble  which  will  hereafter  be  referred  to  as 
the  TransMAPS  Package  or  simply  as  'TransMAPS'. 


1.1  Background  and  Objectives 


Micro- Adaptive  Picture  Sequencing  originated  in  the  Information  Sciences 
Division  of  Control  Data  Corporation  and  has  undergone  extensive  further 
development  and  exploration  with  sponsorship  from  the  Rome  Air 
Development  Center.  These  efforts  are  summarized  in  the  following 
reports  and  articles: 

References: 


RADC  MAPS-Related  Reports: 


LaBonte,  A.  E.  and  C.  J.  McCallu*  (Control  Data  Corporation), 
IMAGE  COMPRESSION  TECHNIQUES,  RADC-TR-77-405,  Oeceaoer  1977, 
Elnal  Tecnnlcal  Report,  Contract  No.  F30602-76-C-0350. 

LaBonte,  A.  E.  and  T.  E.  Rosenthal  (Control  Data  Corporation), 
MAPS  IMAGE  COMPRESSION,  RADC-TR-80-1 73 ,  May  1980, 
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Laoonte,  A.  E.,  "Tvo-Dlmenslonal  Image  Coding  oy 
Micro-Adaptive  Picture  Sequencing  (MAPS)*, 
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Instrumentation  Engineers,  Volume  119, 

APPLICATIONS  OF  DIGITAL  IMAGE  PROCESSING, 
pp  99-106,  1977. 

LaBonte,  A.  E.,  "Micro-Adaptive  Picture  sequencing 
(MAPS)  in  a  Display  Environment",  Proceedings  of 
the  Society  of  Photo-Optical  Instrumentation  Engineers, 
Volume  249,  ADVANCES  IN  IMAGE  TRANSMISSION  II, 
pp  61-70,  1980. 


These  prior  investigations  have  dealt  with  many  different  facets  of  the 
image  representation  problem  including  image  partitioning,  large-area  or 
macro-fidelity  control,  local  or  micro-fidelity  control,  coding 
strategies,  and  artifact-masking  or  perceptual  quality  enhancement  in  the 
reconstructed  imagery.  Through  these  studies,  MAPS  has  evolved  into  a 
mature  set  of  processes  which  still  retains  a  rich  space  of  user 
options.  The  present  effort  integrates  these  previous  developments  to 
form  the  TransMAPS  software  package. 

The  general  objectives  of  this  implementation  are  to  coordinate  existing 
MAPS  results  and  to  make  MAPS  functionally  available  to  a  much  wider 
community  of  potential  users.  TransMAPS  fulfills  these  objectives 
through  use  of  a  readily-available  language  (FORTRAN)  running  on 
widely-used  computer  systems  (DEC  PDP-11  and  VAX).  More  specific 
objectives  emphasize  transportability  within  this  DEC  system  environment 
and  interactive  capabilities  to  support  a  broad  spectrum  of  user 
experience  levels  and  applications  intent. 

1.2  Software  Development 

Four  main  activities  were  involved  in  the  TransMAPS  development  cycle. 
First  was  evaluation  and  coordination  of  the  large  space  of  MAPS  user 
options  which  arose  as  the  technique  evolved.  Here  the  principal 
problems  involved  assessment  of  potential  conflicts  and  automation  of 
those  features  where  a  clear-cut  choice  could  be  made  based  on  the 
results  of  prior  investigations.  Note  that  overall  organization  of 
TransMAPS  is  determined  primarily  by  the  structure  which  results  from 
this  option-space  evaluation.  Moreover,  at  least  one  and  sometimes 
several  detailed  'algorithms'  are  already  available  for  each  of  the 
subprocesses  invoked  by  each  selected  option.  Thus,  the  option 
assessment  really  becomes  the  first  stage  in  the  top-down  TransMAPS 
software  design. 


Again,  because  of  the  algorithmic  detail  already  known,  the  second  stage 
of  the  development  cycle  focused  on  the  constraints  and  compatibility 
issues  raised  by  the  characteristics  of  the  host  computer.  Here,  the 
sixteen-bit  word  length  of  the  PDP-11  systems  was  the  dominant 
controlling  limitation.  The  resulting  address  field  constraints  together 
with  the  option  structure  imposed  the  requirements  for  extensive 
partitioning  of  the  MAPS  process. 

Implementation  considerations  formed  the  core  of  the  third  major  activity 
group.  Issues  of  modularity,  transportable  constructs,  file  environment, 
and  internal  program  documentation  guidelines  were  principal  subtopics. 
This  stage  carried  development  through  detailed  TransMAPS  code 
preparation. 

The  fourth  phase  involved  comprehensive  program  testing  followed  by 
TransMAPS  installation  and  demonstration  on  the  target  PDP-11/70  in  the 
RADC  Image  ft-ocessing  System. 

1.3  The  TransMAPS  fhckage 

The  fact  that  TransMAPS  is  an  integrated  software  'package'  and  not  just 
a  collection  of  computer  programs  is  implicit  in  all  of  the  development 
efforts.  This  package  contains  seven  interrelated  main  program  modules, 
six  data  sets,  a  MAPS  standard  file  structure,  a  set  of  pre-planning  aids 
for  user  interaction  support,  and  the  TransMAPS  user  and  maintenance 
documentation.  The  contents  of  these  five  categories  is  refined  one  more 
level  in  the  following  tabulation: 


TransMAPS  Package 


Seven  Main  Proqraa  Module* t 


•  1 

SUriFRM 

Raster  to  Subframe 

Conversion 

- 

SF.FSV, 

SF.OBJ 

•  2 

MAPS 

maps  compression 

m 

MP.FSV, 

HP. OBJ 

13 

DMAPS 

MAPS  Decompression 

6  Level  Image 

Formation 

DM.FSV, 

DM. OBJ 

84 

ADAPT 

maps  Adaptive  Image 

*  Smoothing 

AD.FSV  > 

AD. OBJ 

#6 

DIFFER 

MAPS  Difference  Image  Formation 

DF.FSV, 

DF.OBJ 

86 

RASTER 

suoframe  to  Raster 

Conversion 

RS.FSV, 

RS.OBJ 

*7 

ANNOTE 

Image  Assembly  and 

Annotation 

Al.FSY 

AI.OBJ 

Provided  on  Computer-Compatible  Tape  (CCT)t 

FORTRAN  iv-Plu*  Source  Code  -  x.FSV 
FORTRAN  Object  (F4P)  Code  -  x.OBJ 

Six  Data  sets: 


Annotation  Symbol  -Map  Tables  -  symbol. BIN 

MAPS  Compression  Test  Image  (160  x  128)  -  MTEST.BIN 

Sample  maps  User  parameter  Set  (Use  with  hTEST)  -  MSET.BIN 
maps  Product  Generation  Test  Image  (120  x  128)  •  GIRL6.BIN 

Two  'Video  Frame'  Images  (480  lines  x  624  pixels): 

Building  scene  -  BLDG1MG.BIN 

IEEE  Girl  -  GIRL1HG.BIN 

Provided  on  Computer-Compatible  Tape  (CCT) 


maps  File  structure  with  standard  Filenames  and  Headers: 


Source  imaae  (One  Subframe/FIXED  Record) 
User  Parameter  Set 

maps  Compression  Stream  (FIXED  Records) 
maps  Block/Pattern  Image  (Subframes) 
maps  Resolution  image  (Subframes) 

MAPS  Adaptively  smoothed  Imaae  (Subframes) 
maps  Difference  image  (Subframes) 

Fidelity  Performance  Summary  (Listing) 
maps  Product  Image  (Raster) 


INAGE.DAT 

MSET.DAT 

MAP5.DAT 

DMAPS.DAT 

LEVEL.DAT 

ADAPT.DAT 

ERR0R.DAT 

EPRINT.DAT 

XRAST.DAT 


Annotation  Symbol-Map  Tables 
Annotated  Image  (Raster) 

Annotated  Printer  Pseudo-Image  (Listing) 


SYMBOL.DAT 

AN1MG.DAT 

APRINT.DAT 


user  Interaction  Pre-Planning  Aids: 


MAPS  Planning  Form  -  Compression 

MAPS  Planning  Form  -  Product  Generation 

Annotation  and  Image  Assembly  Planning  Form 

Documentation: 


TransMAPS  user's  Manual 
TransMAPS  Maintenance  Manual 


The  first  six  program  modules  all  Implement  processes  directly  related  to 
MAP5.  This  set  of  six  further  divides  Into  modules  #1  and  #2  which  deal 
with  compression  and  modules  #3  through  #6  which  provide  the  generation 
of  MAPS  output  'products'.  Four  product  types  are  available:  MAPS 
directly-decompressed  tonal  images,  MAPS  resolution  or  level  images,  MAPS 
adaptively-smoothed  tonal  images,  and  MAPS  difference  images.  The 
'level'  images  give  direct  display  of  the  pattern  of  variable  resolution 
generated  by  the  MAPS  compression  process.  The  'difference'  images 
display  the  fidelity  between  source  and  product  images  in  terms  of  either 
a  'signed'  error  with  a  neutral  gray  zero-point  bias  or  an  'amplified' 
absolute  error. 

The  seventh  module  provides  a  stand-alone  image  assembly  and  annotation 
capability.  It  is  included  to  support  the  display  of  the  MAPS  products 
but  can  be  used  to  format  and  label  imagery  from  other  sources  as  well. 
Figure  1-1  exhibits  a  source  image,  its  MAPS  tonal  decompression,  the 
corresponding  resolution  image,  and  an  amplified  difference  image 
assembled  and  annotated  using  module  #7.  The  original  image  in  this 
example  is  480  lines  x  624  pixels  x  8  bits;  the  MAPS  compression  level  is 
2  bits/original  pixel;  and  the  difference  amplification  factor  is  10.  In 
the  resolution  image,  successively  lighter  regions  correspond  to  finer 
levels  of  local  MAPS  resolution.  The  difference  image  has  been 
complemented  (during  the  assembly  process)  so  the  lighter  flecks 
represent  larger  absolute  source-to-MAPS  differences.  The  sample  in 
Figure  1-1  is  intended  to  give  the  flavor  of  the  capabilities  of  the 
TransMAPS  package  and  to  illustrate  them  with  'real-world'  imagery  (in 
this  case  a  frame  of  'video'  size). 

1.4  Documentation  Organization 

The  complete  documentation  for  TransMAPS  is  distributed  across  three 
volumes:  this  final  report,  the  TransMAPS  User's  Manual,  and  the 
TransMAPS  Maintenance  Manual.  The  User's  Manual  emphasizes  the  basis  of 
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the  MAPS  subprocesses,  the  space  of  user  options,  and  the  interactive 
protocols  needed  to  apply  the  package  as  an  image  coding  system.  The 
focus  in  the  User's  Manual  is  thus  on  MAPS  as  an  integrated  family  of 
techniques  and  on  the  concepts  which  underlie  them.  The  user  may ''either 
apply  MAPS  for  functional  image  compression  or  may  use  TransMAPS  to 
become  familiar  with  and  explore  the  MAPS  conceptual  and  process 
structure.  The  perspective  here  is  on  'what  it  does'. 

The  Maintenance  Manual  emphasizes  the  system  and  specific  implementation 
aspects  of  TransMAPS.  It  addresses  MAPS  as  hosted  by  the  computer  system 
and  focuses  on  installation,. modification,  and  code  maintenance  issues. 
The  Maintenance  Manual  contains  complete  COMME NT-annotated  source 
listings  of  the  seven  program  modules  and  these  listings  form  the 
ultimate  level  of  detailed  implementation  documentation.  The  perspective 
here  is  on  'how  it's  done'. 

The  present  document  -  the  project  final  report  -  is  presumed  to  contain 
both  the  User's  Manual  and  the  Maintenance  Manual  in  its  scope.  They  are 
simply  published  as  separate  documents  for  the  convenience  of  later  use 
where  their  roles  are  quite  different.  The  remaining  topics  which  must 
be  covered  in  this  document,  then,  involve  descriptions  of  the  activities 
specific  to  the  original  construction  of  TransMAPS;  in  essence,  the 
'scaffolding'  of  the  TransMAPS  development.  Four  topics  -  user  option 
assessment,  process  partition,  implementation,  and  testing  -  are 
discussed  briefly  in  the  sections  which  complete  this  volume.  Readers 
unfamiliar  with  the  basic  MAPS  constructs  may  wish  to  read  the  synopsis 
of  these  processes  in  Section  Six  of  the  User's  Manual  to  gain  a 
framework  for  the  rest  of  the  documents.  Alternatively,  the  references 
outlined  in  Section  1.1  may  be  consulted  for  this  purpose. 


SECTION  TWO 


USER  OPTION  ASSESSMENT 

The  organization  of  TransMAPS  is  determined  primarily  by  the  structure 
imposed  on  the  space  of  user  options.  Throughout  previous  development 
and  refinements  of  the  MAPS  technique,  many  alternate  configurations  and 
strategies  were  investigated.  This  resulted  in  a  very  large  space  of 
potential  user  options.  Thus,  the  first  task  in  the  TransMAPS 
integration  involved  three  subtasks  focused  on  this  option  space: 
reduction  of  the  space  by  'automating*  some  of  the  selections;  sequencing 
and  'grouping'  the  retained  options  to  structure  the  process;  and 
assessing  the  'compatibility  constraints'  within  this  structure.  Each  of 
these  subtasks  will  be  dealt  with  in  turn. 

2.1  Automated  Selections 

The  variety  and  nuances  of  possible  MAPS  alternatives  is  bewildering. 
Thus,  any  reduction  in  this  option  space  which  does  not  significantly 
degrade  flexibility  or  performance  will  enhance  the  usability  of 
TransMAPS.  Two  types  of  option  selection  'automation'  were  sought.  In 
the  first  type,  the  selection  is  made  implicit  as  a  part  of  another  user 
action  so  that  it  becomes  transparent.  In  the  second  type,  the  range  of 
states  for  a  particular  option  dimension  is  restricted  to  those  where 
clear  advantages  have  been  demonstrated. 

Three  subclasses  of  implicit  selections  arose  -  in  image  staging,  in 
process  mode,  and  in  generic  options.  In  image  staging,  the  DEC  systems 
are  heavily  disk-file  oriented  and  do  not  support  simple  direct  magnetic 
tape  interaction  under  FORTRAN.  Thus,  file  skipping  and  positioning 
occur  only  on  transfer  of  image  files  from  tape  to  disk  and  not  on  every 
processing  pass  through  a  given  source  file.  Moreover,  communication  of 


image  data  between  processes  is  disk-based  and  this  communication  can  be 
made  transparent  by  implementation  of  a  MAPS  file  structure  with  standard 
naming  conventions.  The  staging  tasks  are  then  handled  either 
automatically  or  as  part  of  the  initial  data  entry  and  need  not  be  made 
expl icit. 

Specification  of  the  MAPS  process  mode  involves  selection  of  the 
process(es)  to  be  run  on  the  source  imagery  and  their  sequence.  These 
choices  are  made  implicitly  as  the  user  invokes  the  corresponding 
TransMAPS  program  modules.  Furthermore,  since  intermodule  communication 
is  accomplished  through  the  standard  file  structure,  the  user  gains 
flexibility  in  sequence  specification  because  the  required  intermediate 
results  are  generated  and  saved  automatically.  Thus,  the  full  mode 
selection  need  not  be  developed  beforehand  -  invoking  TransMAPS  modules 
remains  interactive. 

Generic  options  allow  more  specific  option  types  to  be  absorbed  as 
special  cases  and  thus  simplify  the  explicit  tree  of  options  without 
reducing  flexibility.  One  potential  option  absorbed  in  this  manner  is 
the  2x2-element-sharpening  heuristic  from  the  adaptive  smoothing  module 
which  is  superseded  by  the  more  powerful  subelement  pattern  coding  which 
applies  to  2x2  and  larger  MAPS  elements  if  desired.  Even  more  generality 
is  represented  by  the  use  of  piecewise-1 inear  code-space-to-constrast- 
space  and  code-space-to-intensity-space  remapping  specifications.  More 
specific  options  such  as  log  or  exponential  remappings  can  be 
approximated  by  and  thus  absorbed  into  the  process  of  defining  suitable 
breakpoints  for  the  piecewise-1 inear  mappings.  Specification  of  the 
required  intensity-space-to-code-space  demapping  is  automated  by 
inverting  the  code-to-intensity  remap. 

Five  subclasses  of  state-restriction  selections  arose  -  in  file 
annotation,  in  performance  evaluation,  in  resolution  image  generation,  in 
pattern  bias  specification,  and  in  adaptive  smoothing  control.  Since  the 


MAPS  file  structure  must  serve  Intermodule  communication,  certain 
ancillary  information  such  as  image  size  and  partition  parameters  must  be 
included  as  part  of  the  file  information.  Thus,  some  form  of  file  header 
is  required  and  a  standard  header  format  was  chosen.  This  format 
includes  an  'image  name'  field  and  is  added  automatically  to  all  of  the 
standard  MAPS  files.  Thus,  the  user  no  longer  need  choose  whether  to 
provide  such  annotation  or  not. 

Performance  evaluation  for  both  compression  level  and  fidelity  in  overall 
image  terms  is  a  simple  by-product  of  the  statistics  which  must  be 
gathered  for  determining  optimal  pattern  biases.  Thus,  these  evaluations 
have  a  negligible  impact  and  are  automated  as  part  of  the  compression 
process.  Gathering  data  for  more  detailed  fidelity  distributions, 
however,  does  have  a  significant  impact  on  compression  computational 
efficiency.  Moreover,  if  adaptive  smoothing  is  to  be  applied,  the 
process  is  sufficiently  non-linear  so  that  difference  statistics  can  only 
be  gathered  during  or  after  the  smoothing  process.  Thus,  more  detailed 
fidelity  performance  analysis  is  deferred  until  the  point  where  MAPS 
difference  images  are  formed.  These  statistics  are  easily  obtained  there 
so  they  are  included  as  an  automatic  rather  than  optional  by-product  in 
the  difference  process. 

The  MAPS  resolution  or  level  image  is  a  useful  evaluation  tool  to  assess 
how  MAPS  is  distributing  its  resources  relative  to  the  image  content. 

The  information  in  this  resolution  image  is  also  a  necessary  input  to  the 
MAPS  adaptive  smoothing  process.  Thus,  formation  of  the  level  image  is 
conveniently  automated  as  part  of  the  direct  MAPS  tonal  image 
decompression.  The  only  remaining  potential  option  in  this  case,  then, 
is  the  selection  of  the  gray-scale  values  to  be  associated  with  each 
level.  This  association  must  present  the  'level'  image  itself  in  a 
discernible  form  and  must  make  the  information  easily  accessible  for 


adaptive  smoothing.  A  suitable  selection  which  automates  the  gray-scale 
assignment  and  meets  these  requirements  is  one  In  which  the  MAPS  level  or 
resolution  codes  are  simply  stored  In  the  upper  three  bits  of  each  level 
image  byte. 

Selection  of  appropriate  pattern  biases  to  be  used  with  the  MAPS 
subelement  pattern  coding  mode  can  be  optimized  in  a  mean-square-error 
sense  and  automated  based  on  statistics  gathered  during  the  compression 
step.  Thus,  the  imagery  itself  yields  the  best  choice  for  these  bias 
values  and  the  user  need  not  be  burdened  with  their  separate 
specification. 

In  MAPS  adaptive  smoothing,  the  'adaptation'  includes  three  different 
considerations:  the  size  of  the  'convolution'  window,  activation  of 
surrounding  elements  based  on  their  size  relative  to  the  target  element, 
and  activation  of  surrounding  elements  based  on  their  intensity  relative 
to  the  target  element.  Although  specification  of  each  of  these  could  be 
left  to  the  user's  control,  specific  choices  perform  well  and  have 
significant  a  priori  justification.  Thus,  the  window  size  is  chosen  to 
have  an  edge  which  is  one  cell  smaller  than  the  target  element.  This 
makes  the  window  'odd'  (symmetric  about  its  center  pixel).  This  choice 
is  consistent  with  the  assertion  that  the  target  element  size  reflects 
the  local  intensity  correlation  length  in  the  image.  The  'surround' 
activation  based  on  size  is  chosen  to  include  all  elements  no  smaller 
than  one  resolution  level  below  the  target  element.  This  is  consistent 
with  the  assertion  that  finer  relative  resolution  is  a  priori  evidence  of 
localized  image  activity  and  should  not  be  included  in  the 
'convolution'.  Finally,  the  selection  of  weighting  functions  for  the 
convolution  is  restricted  to  a  choice  between  uniform  weight  over  the 
window  or  two-dimensional  Gaussian  weight  with  user  specified  spread. 
Uniform  weighting  has  a  particularly  simple  implementation  and  Gaussian 
weighting  exhibited  slight  superiority  among  the  various  functions 
investigated  in  previous  MAPS  studies. 


2.2  Option  Groupings 


Following  the  pruning  of  the  option  tree,  the  next  major  task  in  the  user 
option  assessment  is  to  order  the  remaining  options  and  to  cluster  them 
into  groups  according  to  the  processes  which  require  them.  The  ordering 
chosen  is  essentially  the  sequence  in  which  the  option  selections  are 
used.  The  process  groupings  are  as  follows: 


Option  Groupings: 


Raster  to  Suoframe  Conversion: 


Source  image  identification 
Source  image  Position  Specification 
Source  Image  size  Specification 
Source  image  Partition  specification 

MAPS  Compression: 


User  Mode  Selection 
Macro-Fidelity  Control 
Micro-Fidelity  Control 
Gray-scale  Manipulations 

MAPS  Decompression  and  Resolution  image  Formation: 


<User  Transparent) 

MAPS  Adaptive  imaoe  Smoothing: 


Convolution  eeiahting  Specification 
Ditner  Amplitude  Specification 

MAPS  Difference  image  Formation: 


Input  image  Pair  selection 
Difference  Image  Control 

Subframe  to  Raster  Conversion: 


Output  Product  Image  Type  Selection 
Image  Assembly  and  Annotation: 


Output  Image  Specification 
Embedded  input  Image  Specifications 
Embedded  Annotation  Specifications 


Note  that  this  tabulation  displays  only  the  first  level  of  refinement 
under  each  process,  ftrticularly  in  the  MAPS  Compression  and  the  Image 
Assembly  and  Annotation  processes,  several  further  levels  are  needed. 


This  option  hierarchy  coupled  with  an  appropriate  default  structure 
allows  the  casual  or  inexperienced  user  to  treat  TransMAP5  as  a  'black 
box'  (or  more  nearly  dark  gray)  image  coding  system.  Very  few  parameters 
need  to  be  specified  for  simple  uniform  fidelity  coding  and 
reconstruction  of  the  source  imagery.  On  the  other  hand,  the  more 
experienced  user  or  one  who  seeks  to  gain  more  insight  into  the  MAPS 
processes  can  selectively  penetrate  the  option  tree  and  tailor  the 
control  as  desired. 

In  order  to  assist  with  such  exploitation  or  exploration,  the  option 
space  has  been  laid  out  in  three  detailed  'User  Planning  Forms'.  They 
are  intended  to  serve  as  an  aid  for  pre-planning  of  complex  interactive 
sessions,  to  provide  a  convenient  record  of  MAPS  processing,  and  to  form 
a  'road-map'  which  lays  out  the  entire  option  space  at  one  time.  Reduced 
versions  of  these  Planning  Forms  are  exhibited  here  as  Figures  2-1  (MAPS 
Compression),  2-2  (MAPS  ft-oduct  Generation),  and  2-3  (Annotation  and 
Image  Assembly). 

The  information  on  these  three  forms,  then,  characterizes  the  option 
structure  and  thus  the  organization  of  the  Interactive  TransMAPS 
package.  Further  descriptions  of  the  individual  option  entries  is  given 
in  the  User's  Manual,  Section  Seven. 

2.3  Compatibility  Constraints 

The  remaining  option  analysis  effort  was  directed  at  uncovering 
combinations  of  active  options  which  are  internally  incompatible.  Only 
two  significant  problems  were  found  and  neither  restricts  the  performance 
of  the  package  appreciably.  Both  problems  involve  the  'staggered* 
subframe  image  partition.  Both  also  arise  partially  due  to  'computational 
considerations'  so  they  are  not  strict  option  incompatibilities. 


MODULE 

RyNJJIgPRM 

FILES: 

in  -  Use*  Raster 


HAPS  Planning  Form  (allowed  range)  [default]  Date 
(compression) 

USER  INPUTS 


MAPS  PLANNING  FpNM  (ALLOWED  NANGE)  [DEFAULT]  DATE _ 

(PRODUCT  91  AERATION)  lKASE  NAME. 

Compression. 


files: 

in  -  WS. DAT 
out  -  DMAPS.DAT 
out  -  LEVEL . DAT 


USER  INPUTS 


RUN  ADAPT  /not  with  STAGGER  snip/ 

FILES: 

in  -  DMAPS.DAT 
in  -  LEVEL.DAT 


CONVOLUTION  WEIGHTING  (GAUSSIAN  UNIFORM)  [G] 

SIGMA  MULTIPLE  AT  WINDOW  CORNER  [l-l]  _  /GAUSSIAN  ONLY/ 

RANDOM  DITHER  AMPLITUDE  [*-0}  _ 


OUT  -  ADAPT.  »T 


RUN  DIPPER 


files: 


in  •  JMA6E.DAT 
in  -  DMAPS.DAT 
in  -  ADAPT.DAT 


ANY  TWO 


out  -  ERR0R.DAT 


out  -  EPR1NT.DAT  (listing) 


file  pairings  (IMAGE  vs  DMAPS  IMAGE  vs  ADAPT  DMAPS  vs  ADAPT)  [l 

DIFFERENCE  PARAMETER: 

(  <0  SIGNED  -0  STATISTICS  ONLT  »0  AMPLIFICATION  FACTOR)  [l°]_ 


RUNJIASTER 

FILES: 

in  •  IMAGE.DAT 
IN  -  DMAPS.DAT 
in  -  LEVEL.DAT 
in  -  ADAPT.DAT 
in  -  ERROR. OAT 

our  -  IRAST.DAT 
out  -  DRAST.DAT 
out  -  LRAST.DAT 
out  -  ARAST.DAT 
our  -  ERAST.DAT 


MAPS  raster  product  (IMAGE  DMAPS  LEVEL  ADAPT  ERROR)  [DMAPS] 


TYPE  MATCMES  INPUT 


Figure  2-2.  MAPS  Product  Planning  Form 
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The  first  difficulty  is  among  the  staggered  subframe  partition,  the 
larger  subframe  sizes  (16x16  and  32x32),  and  the  maximum  array  size 
addressable  on  a  sixteen-bit  computer.  The  essence  of  the  problem  is 
that  a  16  or  32  line  recirculating  buffer  is  too  restrictive  on  the 
source  image  size,  and  implementation  in  terms  of  an  8-line  recirculating 
buffer  with  successive  partial  subframe  extraction  is  too  disk  I/O 
intensive  to  achieve  a  reasonable  efficiency  level.  However,  the 
advantages  of  a  staggered  subframe  grid  in  reducing  the  perceptible 
'blockiness'  in  the  reconstructed  image  are  mostly  lost  in  the  larger 
subframes  anyway  since  16x16  and  32x32  block  sizes  can  usually  be 
discerned  independent  of  the  characteristics  of  their  surroundings. 

Thus,  restriction  to  8x8  subframes  for  the  staggered  grid  partition  is 
not  a  serious  operational  limitation. 

The  other  difficulty  is  among  the  staggered  subframe  partition,  the 
adaptive  smoothing  process,  and  the  'fast'  algorithm  for  the  required 
'convolution'.  This  fast  algorithm  gains  a  major  portion  of  its 
efficiency  from  the  fact  that  the  active  elements  surrounding  the  target 
element  have  invariant  sampling  point  positions  given  the  size 
(resolution  level)  of  the  target.  In  the  staggered  mode,  the  'surround' 
for  elements  along  the  subframe  edges  is  different  from  the  surround  for 
an  element  interior  to  the  subframe.  Thus,  this  crucial  invariance  is 
lost  and  a  much  less  efficient  sampling  strategy  would  be  required. 

Thus,  adaptive  smoothing  is  restricted  to  square  grid  subframe 
partitions.  Note,  however,  that  subframe  stagger  and  adaptive  smoothing 
are  really  competing  processes  which  both  seek  to  decrease  the  perception 
of  'blockiness'  in  the  reconstructed  MAPS  imagery.  Stagger  has  very  low 
computational  cost  but  is  only  partially  effective  in  hiding 
'blockiness'.  Adaptive  smoothing  is  very  effective  in  perceptual 
improvement  but  also  incurs  relatively  higher  computational  expense. 
Adaptive  smoothing  combined  with  stagger  seems  unlikely  to  give 
significantly  better  perceptual  quality  than  is  achieved  by  adaptive 
smoothing  on  square  grids.  Again,  no  appreciable  operational  capability 
appears  to  be  lost  through  this  constraint. 


SECTION  THREE 


IROCESS  PARTITION 

The  sixteen-bit  word  size  of  the  POP-1 1  systems  introduces  three  types  of 
constraint  on  the  TransMAPS  development.  The  three  types  are:  task 
space  limitations,  array  address  limitations,  and  system  overhead  costs. 
Together,  these  constraints  dictate  the  need  to  partition  MAPS  into 
process  modules  which  can  be  accommodated  individually  within  the  PDP-11 
operating  environment.  The  next  three  subsections  discuss  the 
implications  of  the  limitations;  the  final  subsection  then  describes  the 
partition  and  the  associated  intermodule  communication  structure. 

3.1  Task  Space  Limitations 

Even  though  a  typical  large  PDP-11  system  may  have  several  hundred 
thousand  bytes  of  main  memory,  individual  tasks  are  limited  to  32K  if 
standard  FORTRAN  constructs  are  employed.  In  'mapped'  PDP-11  systems, 
this  restriction  can  be  circumvented  by  the  process  of  'windowing'  in  4K 
blocks  (with  some  overhead  for  window  maintenance).  In  general,  such 
windowing  is  not  directly  accessible  via  FORTRAN  except  for  data  space 
extension  through  the  VIRTUAL  array  declaration.  Although  VIRTUAL  allows 
data  access  outside  of  the  normal  32K  task  space,  it  does  so  at  some 
expense  in  program  efficiency.  Thus,  the  VIRTUAL  construct  should  be 
exploited  only  where  absolutely  needed. 

Another  strategy  for  handling  programs  which  exceed  the  32K  task  limit  is 
through  the  use  of  overlay  structures.  However,  this  approach  is 
appropriate  where  the  excess  size  Is  due  to  executable  code  which  can  be 
overwritten  when  its  functions  have  been  completed.  In  the  TransMAPS 
process  (as  with  many  'image  processing'  tasks),  the  size  requirements 
are  dictated  more  by  the  image  data  needs  than  by  the  program  statements 
to  manipulate  that  data.  Furthermore,  many  of  the  subprocesses  are 


table-driven  with  table  space  dominating  the  size  of  the  task.  Again, 
this  is  more  data-like  than  program-like  so  overlays  are  of  marginal 
utility. 

Four  guidelines  emerged  from  these  considerations: 

•  Restrict  code  to  FORTRAN  constructs,  if  possible,  to  simplify 
transportability  and  program  maintenance; 

e  Attempt  explicit  process  partition  into  modules  which  reflect 
the  logical  structure  of  MAPS  and  avoid  the  complexity 
inherent  in  overlays; 

•  Minimize  use  of  the  non-standard  and  relatively  slow  VIRTUAL 
declaration  wherever  possible;  and 

•  Exploit  process  symmetries  to  reduce  table  size  for 
table-driven  processes. 

3.2  Array  Address  Limitations 

The  sixteen-bit  word  size  also  limits  the  maximum  number  of  addressable 
elements  in  an  array  to  32K.  Elements  could  be  single-byte,  two-byte, 
four-byte,  or  eight-byte.  However,  the  basic  source  image  pixel  size  is 
single-byte  (8  bit  or  6  bits  right-justified  in  8).  Thus,  image 
manipulations  are  much  easier  to  understand  if  the  arrays  are  directly 
organized  into  bytes.  But  this  leads  to  a  problem  if  32x32  pixel 
subframes  are  to  be  used  since  32  lines  of  data  must  be  accessed  to 
obtain  each  subframe.  Straightforward  implementation  of  a  32-line  buffer 
would  then  limit  the  image  edge  (line  length)  to  a  thousand  pixels.  This 
is  clearly  too  restrictive  for  a  general  MAPS  capability. 

Fortunately,  both  PDP-11  file  systems  -  FCS-11  and  RMS-11  -  support  a 
DIRECT  access  capability  for  binary  files  of  FIXED  record  length.  This 
makes  it  possible  to  develop  Input  and  output  modules  which  reorganize 
the  raster  source  Imagery  to  subframe  format  by  extracting  segments  and 
updating  subframes  from  successive  swathes  of  lines.  An  eight-line  swath 
at  four  thousand  pixels  per  line  will  still  fit  within  the  32K  array 
address  constraint.  This  sets  an  acceptable  limit  (4000  pixels)  on  the 
size  of  the  source  image. 


Once  in  subframe  format,  all  subsequent  TransMAPS  modules  can  then  deal 
with  the  data  in  terms  of  deterministic  record  (subframe)  size.  These 
sizes  are  64  bytes  (8x8  subframe),  256  bytes  (16x16  subframe),  and  1024 
bytes  (32x32  subframe).  Even  the  largest  of  these  is  a  small  fraction  of 
the  available  32K  task  space.  Moreover,  all  three  sizes  are  sub-  or 
supra-multiples  of  the  basic  disk  sector  length  of  512  bytes.  The  DIRECT 
mode  of  disk  access  exploits  this  in  finding  the  track  and  sector  for  a 
particular  subframe  index;  a  significant  efficiency  advantage. 

3.3  System  Overhead 

The  32K  task  space  must  also  accommodate  some  system  overhead  in  the  form 
of  data  communication  buffers.  The  space  set  aside  for  this  purpose  is 
determined  by  two  Task  Build  parameters  -  ACTFIL  and  MAXBUF.  ACTFIL 
determines  the  maximum  number  of  files  which  can  be  active  (open)  at  one 
time.  MAXBUF  determines  the  maximum  record  size  which  can  be  handled  on 
any  file.  The  buffer  space  is  determined  by  the  product  of  these  two. 
Thus,  it  is  important  to  restrict  the  number  of  files  to  the  minimum 
needed  and  to  open,  read,  and  close  any  initial  table-loading  files 
before  opening  image  handling  files  in  each  module. 

Furthermore,  where  possible,  it  is  desirable  to  employ  file  types  with  a 
minimum  physical  RECORDSIZE.  For  modules  employing  subframe  data  in  the 
DIRECT  access  mode,  this  size  is  at  least  1024  bytes.  For  raster 
organized  image  files,  the  record  size  will  depend  on  the  RECORDTYPE. 

Another  Task  Build  parameter,  UNITS,  also  affects  the  system  overhead 
charged  against  the  task  space.  UNITS  must  be  set  at  least  as  large  as 
the  largest  logical  unit  number  employed  in  the  program.  File  table 
space  is  set  aside  for  each  possible  logical  unit  number  up  to  UNITS 
whether  each  number  is  used  or  not.  Thus,  use  of  the  small  numbers,  1 
through  4,  for  the  data  files  in  each  module  is  advantageous.  Unit  5  is 
the  default  terminal  designation  and  Unit  6  is  the  default  printer  value; 
retention  of  these  seems  reasonable  for  standardization.  Extension 


beyond  the  default,  UNITS*6,  does  not  appear  necessary. 
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3.4  Intermodule  File  Communication 

The  logical  partition  of  the  MAPS  processes  is  already  supported  by  the 
user  option  evaluation  results.  MAPS  compression,  MAPS  product 
formation,  and  Image  Assembly  and  Annotation  form  the  three  major  process 
categories.  Compression  is  further  divided  into  the  macro  step  of 
subframe  reorganization  and  the  micro  step  of  MAPS  coding  within  each 
subframe.  fVoduct  formation  is  also  further  divided  into  MAPS 
decompression  with  resolution  image  formation;  adaptive  smoothing; 
difference  image  formation;  and  reformatting  back  to  raster 
organization.  In  summary,  a  suitable  logical  partition  into  seven 
modules  (including  process  mnemonics)  is: 


#1 

SUBFRM 

Source  raster  to  subframe  conversion; 

#2 

MAPS 

MAPS  subframe  compression; 

#3 

DMA  PS 

MAPS  decompression/level  image  formation; 

#4 

ADAPT 

MAPS  adaptive  smoothing; 

#5 

DIFFER 

MAPS  difference  image  formation; 

#6 

RASTER 

Subframe  to  raster  conversion;  and 

#7 

ANNOTE 

Annotation  and  image  assembly. 

The  user  interaction  with  each  of  these  modules  was  outlined  in  Sectio 
Two.  However,  appropriate  image  data  must  also  interact  with  each  of 
these  modules  and  this  communication  has  several  repul r*N«ents. 
process  should  be  transparent  to  the  user.  This  implies  the  need  for 
standard  (dedicated)  file  names  which  can  be  opened  automatically  when  a 
particular  process  is  invoked.  It  also  means  that  necessary  control 
parameters  from  previous  processes  be  carried  internal  to  the  file;  a 
standard  header  format  meets  this  latter  need.  Moreover,  the  file  names 
should  be  mnemonic  for  the  file  type  but  sufficiently  unique  to  avoid 
confusion  with  other  files  likely  to  reside  in  the  system.  Such  a 
combination  of  dedicated  mnemonic  file  names  enables  effective  and 
efficient  file  maintenance  activities  to  be  carried  out  on  the  TransMAPS 
data  environment  even  if  they  are  generated  over  an  extended  period  of 


A  standard  configuration  of  twelve  file  types  was  developed  for  this 
intermodule  communication  function.  They  are  exhibited  along  with  the 
corresponding  modules  in  Figure  3-1.  This  figure  presents  the  complete 
macro-structure  of  TransMAPS;  it  is  the  key  organizing  chart  for  the 
entire  software  package. 
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iure  3-1.  Overal 


1  TransMAPS  Structure 


SECTION  FOUR 


IMfLEMENTATION 

Detailed  program  module  development  is  the  next  broad  step  in  the 
top-down  design  which  implements  the  structure  of  TransMAPS  given  in 
Figure  3-1.  Here,  'working  models'  for  many  of  the  process  steps  already 
existed  in  the  various  MAPS  software  elements  available  from  prior 
internal  Control  Data  implementations.  Thus,  much  of  the  effort 
consisted  of  coordination  and  integration,  and  the  TransMAPS 
implementation  phase  could  emphasize  the  issues  of  transportability  and 
its  close  relative,  software  maintainability.  Both  maintenance  and 
transport  are  aided  by  use  of  standard  constructs,  modularization  of 
code,  standardization  of  file  structures,  and  consistent  internal  program 
documentation  practices.  Each  of  these  areas  is  discussed  briefly  in  the 
remainder  of  this  section. 

4.1  Transportability 

Some  of  the  transportability  considerations  have  already  been  mentioned; 
an  example  is  the  use  of  file  types  supported  by  both  FCS-11  and  RMS-11 
file  systems.  More  generally,  coding  was  restricted  to  FORTRAN 
constructs  supported  in  both  DEC  compilers  -  FORTRAN  and  FORTRAN  IV-H.US 
-  insofar  as  possible.  This  restriction  was  imposed  even  where  small 
penalties  in  execution  efficiency  were  known  to  accrue. 

In  two  instances,  TransMAPS  employs  constructs  which  only  FORTRAN  IV-PLUS 
supports.  In  ANNOTE,  the  image  assembly  and  annotation  module,  extensive 
use  is  made  of  the  library  shift  function,  IISHFT.  The  shift  allows  very 
rapid  manipulation  of  the  annotation  character  bit  maps  in  the  various 
resampling  operations;  any  other  approach  seemed  unnecessarily  obscure 
and  cumbersome. 

The  other  type  of  construct  limited  to  FORTRAN  IV-PLUS  involves  use  of 


Integer*4  (i.e.  four  byte  integer)  arithmetic  in  several  calculations 
needed  for  performance  evaluation  and  element  or  subframe  counts.  Simple 
FORTRAN  supports  the  Integer*4  data  type  but  only  allows  Integer*2 
arithmetic  operations.  Although  the  four-byte  arithmetic  can  be 
partitioned  into  two-byte  arithmetic  with  extensive  overflow  checking, 
the  efficiency  penalties  seem  far  in  excess  of  the  slight  gains  in 
transportability.  In  any  event,  such  two-byte  for  four-byte  replacement 
can  be  treated  as  a  maintenance  function  in  the  rare  instances  where  it 
is  required  by  the  system. 

4.2  Modularization 

To  support  maintenance  activities  and  possible  future  software 
modification  or  extension,  the  TransMAPS  detailed  design  is  extensively 
modularized.  Including  the  main  routines,  the  seven  principal  modules 
contain  a  total  of  sixty-eight  routines.  The  average  routine  length 
without  COMMENTS  but  including  continuations  is  less  than  fifty  lines. 
Although  most  routines  fit  on  a  single  page  (at  least  before  COMMENTing), 
the  code  for  the  user  interactions  was  not  so  restricted.  For  each 
module,  the  interactive  protocols  were  grouped  in  one  (or  two)  routines 
for  ease  in  location  rather  than  being  broken  up  arbitrarily  to  achieve 
artificially  short  code  segments.  Moreover,  the  FORMAT  statements  are 
placed  at  the  point  of  use  rather  than  being  collected  at  the  beginning 
or  end  of  the  routine.  This  allows  the  interaction  to  be  followed 
sequentially  through  its  steps  by  anyone  reading  the  code  and  should 
contribute  significantly  to  rapid  understanding  of  its  flow. 


Each  interaction  is  in  the  form  of  a  'TYPE'  statement  (with  FORMAT)  which 
queries  the  user  and  gives  current  default  values  and  allowed  ranges 
where  appropriate.  This  prompt  is  followed  immediately  by  the 
corresponding  'ACCEPT'  statement  which  processes  the  user's  response.  If 
applicable,  validity  checking  is  included  following  the  response;  such 
data  checks  are  typically  set  off  by  indenting  the  corresponding  code  In 
the  user  interaction  routines.  Thus,  the  interaction  proceeds  in 
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consistent  chunks  with  the  FORMATS  providing  integrated  internal 
documentation.  Except  to  set  off  major  groups  of  user  parameters, 
further  COMMENTS  in  these  routines  were  thought  to  be  more  intrusive  thap 
helpful  and  were  not  used. 

All  routines  were  restricted  to  a  single  entry  and  a  single  exit  point. 
Within  the  routines,  flow  is  either  simple  sequential,  simple  conditional 
(the  equivalent  of  'if-then-else' ),  simple  iteration  ('00-loop'),  or  the 
non-linear  recursion  implied  by  the  MAPS  resolution  adaptation.  Thus, 
except  for  the  MAPS  recursive  sequencing,  all  control  constructs  are  of 
the  classical  'structured'  variety.  The  MAPS  sequencing  is  also  simple 
and  clear  from  context. 

In  many  instances,  iterative  control  involves  several  levels  of  nesting. 
For  these  cases,  the  hierarchy  is  set  off  by  extensive  and  consistent  use 
of  DO-loop  indentation  in  all  TransMAPS  routines  other  than  those  for 
user  interaction  as  already  described. 

4.3  Raster  Image  File  Formats 

As  noted  earlier,  DEC  FORTRAN  does  not  support  direct  magnetic  tape 
operations  in  any  simple  manner.  Thus,  the  communication  of  image  data 
to  and  from  the  TransMAPS  package  is  via  disk  file.  Since  there  does  not 
appear  to  be  any  generally-accepted  standard  format  for  raster  image 
files,  a  specific  file  structure  was  chosen  to  satisfy  other  conditions 
in  TransMAPS.  In  particular,  TransMAPS  expects  input  raster  images  to  be 
in  the  form  of  sequential  binary  files  with  a  SEGMENTED  record  type.  The 
advantage  of  this  form  is  that  large  logical  records  (up  to  four  thousand 
bytes)  can  be  accommodated  without  the  necessity  to  handle 
correspondingly  large  physical  records.  Thus,  the  buffer  space  does  not 
have  to  be  allocated  on  the  basis  of  this  largest  logical  record  size  and 
MAXBUF  need  not  be  set  larger  than  1024,  the  largest  expected  record  of 
FIXED  type.  This  limit  on  the  buffer  overhead,  in  turn,  has  allowed 
TransMAPS  to  be  Implemented  without  resorting  to  the  VIRTUAL  declaration 


In  any  of  the  modules;  a  significant  gain  in  efficiency!  Even  with  this 
restriction,  three  of  the  seven  modules  are  well  over  31K  in  required 
task  space.  Hence,  the  restriction  on  raster  file  format  is  a  necessary 
one  to  gain  this  benefit. 

4.4  Subframe  Image  File  Formats 

Sequential  binary  files  of  FIXED  record  type  were  selected  as  the  format 
for  the  subframe-organized  images  (and  for  the  stream  of  MA PS-compressed 
data).  This  choice  allows  use  of  the  DIRECT  access  mode  which  in  effect 
gives  random  image  access  at  the  individual  record  level.  Several 
benefits  accrue  from  this.  In  the  process  of  conversion  from  raster  to 
subframe  organization,  groups  of  raster  lines  can  be  partitioned  into 
partial  subframe  segments  and  the  corresponding  subframe  records 
retrieved  and  updated  individually  as  needed.  An  analogous  process  in 
the  conversion  from  subframes  back  to  raster  lines  is  also  supported  by 
this  random  access  to  individual  subframe  records. 

In  the  adaptive  smoothing  process,  it  is  necessary  to  have  access  to  the 
data  from  subframes  bordering  the  subframe  of  current  target  interest. 
Again,  a  random  access  capability  which  allows  retrieval  of  individual 
subframes  is  required;  DIRECT  access  mode  also  supports  this  need. 

Finally,  some  data  in  the  file  header  is  not  available  until  all 
following  records  have  been  completed.  The  DIRECT  access  mode  allows 
this  first  record  to  be  inserted  in  the  file  at  the  end  of  the  process 
and  does  so  in  a  simple  fashion. 

As  noted  earlier,  both  DEC  file  systems  -  FCS-11  and  RMS-11  -  support 
such  FIXED  record  type  DIRECT  access  binary  files.  Thus,  TransMAPS 
transportability  is  not  compromised. 


4.5  COMMENT  Guidelines 


For  a  competent  FORTRAN  programmer,  the  most  useful  internal  program 
documentation  is  the  flow  of  the  executable  code  itself.  Once  program 
intent  and  basic  definitions  are  understood,  COMMENTing  within  the  flow 
can  often  be  more  distracting  than  helpful.  Thus,  a  consistent 
philosophy  of  program  COMMENTS  for  TransMAPS  has  been  employed  which 
seeks  to  aid  without  intrusion. 

File  communication,  overall  intent  and  structure,  and  definitions  of  key 
variables  are  grouped  at  the  beginning  of  each  of  the  seven  main 
modules.  Each  subroutine,  then,  is  provided  with  a  much  briefer  heading 
which  also  narrates  intent  and  describes  local  CALLing  links.  In-line 
COWIENTs  are  restricted  to  setting  off  major  blocks  for  quick  location. 
On-line  flags  (using  the  DEC  separator  convention  '!')  are  used  to  locate 
points  where  default  values  are  set  and  to  note  points  at  which  1*4 
arithmetic  is  carried  out.  These  flags  are  supplied  to  simplify 
site-specific  maintenance  and  installation  changes. 

The  modularization  within  TransMAPS  is  dictated  more  by  the  need  for 
logical  refinement  into  'graspable'  chunks  than  by  requirements  for  code 
segments  which  are  used  repeatedly  at  different  points  in  the  flow. 

Thus,  intermodule  communication  need  not  have  extensive  lists  of  formal 
parameters  which  take  on  different  values  at  different  call  points. 
Rather,  the  various  routines  tend  to  work  on  a  common  body  of  data  and 
use  a  common  set  of  control  parameters.  Thus,  the  communication  problem 
is  handled  by  extensive  use  of  named  COMMON  blocks.  Each  main  module 
contains  a  complete  description  of  the  COMMON  blocks  with  variable  names, 
data  types,  and  role  characterization.  In  effect,  this  description 
becomes  a  data  dictionary  for  the  module. 


The  COMMENT  formats  are  summarized  schematically  In  the  following 
tabulation: 


COMMENT  Formats: 


Principal  Module  Headers: 


C 

C  - - - 

c  I  I 

C  I  TransMAPS  Nodule  tn:  process  descriptor  I 
C  I  I 

C  . . . . . . . . . . 

C 

C  Control  Date  Corporation  -  1982 

C 

C  Files i  unit  Name  Content  Froa/To  Type 

C - 

C  In/Out  n  zzzzz  descriptor  nodule  segmented 

C  or  DIRECT 

C  or  FIXED  SEO. 

C  or  FORMATTED 

C 

C  User  Interaction: 

C - - - 

C  principal  Interactive  paraneter  groups 

C 

C  Program  structure: 

C - 

C  subroutine  calling  hierarchy  elth  brief  process  outline 

C 

C  COMMON  Block  Communication: 

c  ........................... 

C  /biocknane/  descriptor  length  (1*2  words) 

C  host  routine  nanes 

C 

C  variable  (datatype)  descriptor 

C 

C  (These  lists  provide  a  nodule  DATA  DICTIONARY) 

C 


C  order  conventions  or  geometry  definitions  (If  appropriate): 
C  ........................................................... 

Subroutine  Headers: 

C 

C  Purpose:  brief  process  description 
C 

C  CALLed  from:  calling  routine  nane(s) 

C 

C  CALLs:  called  routine  nane(s) 

C 

C  geometry  definitions  If  appropriate: 


C - 

On-line  Flags: 

Expression 

Comment 

Function 

•  e  • 

1  Default 

(default  values  set  In  USERx) 

•  •  • 

1  1*4 

(four-byte  Integer  arithmetic) 

SECTION  FIVE 


TESTING 

Verification  of  the  TransMAPS  package  was  divided  into  three  major 
parts:  the  MAPS  compression  logic,  the  MAPS  product  formation  options, 
and  the  annotation  capability.  This  report  of  the  TransMAPS  development 
efforts  concludes  with  a  brief  discussion  of  these  tests. 

5.1  Compress ion- Logic  Diagnostic  Test  Image 

The  principal  complexities  in  MAPS  arise  during  the  compression  process 
and  are  further  compounded  by  the  extended  space  of  user  options  in  this 
step.  This  is  the  most  likely  area  for  small  errors  in  logic  or  code 
entry.  Moreover,  because  of  the  adaptive  nature  of  MAPS,  the  effects  of 
such  errors  might  remain  very  localized  and  easily  go  undetected  in 
review  of  the  compression  of  a  general  image  scene.  Thus,  tests  of  the 
compression  logic  must  be  capable  of  exhausting  the  various  patterns  of 
intensity  which  MAPS  might  encounter  in  real  imagery.  For  this  purpose, 
it  is  sufficient  to  Include  only  ‘generic*  patterns  which  represent  all 
geometries  but  not  all  possible  intensity  levels.  A  'binary'  image  of 
light  (gray  scale  0)  and  dark  (gray  scale  255)  will  suffice. 

Such  a  diagnostic  test  image  was  created  for  TransMAPS  and  is  displayed 
as  Figure  5-1.  This  image  is  160  lines  by  128  pixels  and  is  suitable  for 
the  line-printer  pseudo-image  display  mode  of  the  TransMAPS  ANNOTE 
module.  An  overlay  pattern  of  lines  along  'natural'  MAPS  boundaries  has 
been  added  to  the  pseudo-image. 

From  the  figure  it  is  seen  that  four  complete  patterns  representing  lxl, 
2x2,  4x4,  and  8x8  elements  are  displayed.  Also,  one  quadrant  of  the 
pattern  at  16x16  and  a  single  dark  element  at  32x32  have  been  included. 
The  full  patterns  at  the  four  lowest  resolutions  are  each  made  up  of 
twelve  'quads'  of  light  and  dark  elements.  Indeed,  all  possible 


arrangements  of  'one  light  and  three  dark',  'two  adjacent  light  and  two 
adjacent  dark',  and  'three  light  and  one  dark'  are  present  for  all  four 
resolution  levels.  For  the  16x16  case,  at  least  one  pattern  from  each  of 
the  three  classes  is  represented.  Note  further  that  for  each  resolution, 
the  quad  patterns  of  'all  light*  and  'all  dark*  are  shown  somewhere  in 
the  image. 

This  test  image  supports  the  following  classes  of  verification 
diagnostics: 

Compression-Logic  Diagnostic  Tests! 

Image  Partition  and  Macro-Fidelity  Control! 

Input  Image  Line  and  Pixel  Skips 
Subframe  Phasing  (Square  and  Staggered) 

Macro-Partition  Croup  Assignment 

Micro-Fidelity  control! 

Zigzag  sequencing 

Contrast  Control  as  a  Function  of  Transition  Level 
Contrast  Control  as  a  Function  of  Contrast  Type 
Pattern  Code  Assignment 

Gray-Scale  Manipulation: 

Contrast  space  Ouad  Sort 
intensity  Space  Ouad  Sort 
intensity  Reset  Assignment 


Micro-performance  of  TransMAPS  was  verified  in  all  of  these  areas.  The 
diagnostic  test  image  is  also  included  as  part  of  the  TransMAPS  package 
and  can  be  used  for  verification  on  installation  and,  perhaps  in  an  even 
more  valuable  role,  to  familiarize  the  user  with  the  detailed  effects  of 
many  of  the  user  options.  Several  specific  examples  of  its  use  are  given 
in  Section  Eight  of  the  User's  Manual. 


5.2  R*oduct-Generation  Familiarization  Test  Image 

Another  'toy'  image  was  generated  by  resampling  the  video-sized  frame  of 
the  IEEE  Girl  image  down  to  120  lines  by  128  pixels.  The  result  is  shown 
in  the  pseudo-image  of  Figure  5-2.  The  source  version  was  also  scaled  to 
six-bit  intensity  (right-justified  in  eight  bits)  to  test  the  six-bit 
option  of  the  raster  to  subframe  conversion.  At  this  size,  the  image 
content  is  rather  strongly  undersampled  but  this  makes  it  effective  in 
emphasizing  small  artifacts  in  the  resultant  product  images.  The  coarse 
gray-scale  granularity  of  the  pseudo-image  also  serves  to  enhance 
otherwise  small  artifacts.  This  combination,  then,  is  very  suitable  for 
familiarizing  the  user  with  the  types  of  fidelity  compromises  which  the 
MAPS  process  introduces  during  compaction. 

A  series  of  products  were  generated  to  compare  various  compression  and 
reconstruction  strategies  with  the  compression  level  held  constant  (at 
two  bits  per  pixel).  This  entire  sequence  is  displayed  in  Section  Mine 
of  the  User's  Manual.  In  addition  to  illustrating  the  strategies,  the 
results  of  the  sequence  verify  the  expected  performance  characteristics 
of  the  various  product  generation  options.  This  test  image  is  also 
included  in  the  TransMAPS  package.  Its  small  size  makes  it  very 
effective  in  exploring  a  wide  range  of  strategies  at  very  modest 
computational  investment. 

5.3  Annotation  Option  Test  fatterns 

The  various  annotation  options  in  ANNOTE  were  sampled  with  a  small  test 
pattern  using  the  printer  pseudo-image  for  display  (see  Section  Four  of 
the  User's  Manual).  As  the  final  test  step,  however,  a  much  more 
complete  test  of  the  annotation  capability  was  provided  by  constructing 
the  test  pattern  shown  in  Figure  5-3.  This  result  was  generated  on  a 
PDP-11/70,  transferred  to  magnetic  tape,  and  then  to  film  using  an 
Optronics  Fhotowrite.  The  test  pattern  shows  all  sixty  symbols  in  all 
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Figure  b-3.  Annotation  Options  Test  Pattern 


four  orientations  at  all  four  magnifications  in  alternate  direct  and 
complement  presentations. 

This  concludes  the  brief  discussion  of  the  development  of  TransMAPS  which 
constitutes  this  first  part  of  the  project  "Final  Technical  Report." 
Indeed,  this  description  is  transitory  and  the  'scaffolding'  it 
represents  can  be  removed.  The  TransMAPS  User's  Manual  is  the  central 
portion  of  this  total  document  and  is  designed  to  stand  alone  in  its 
support  of  the  functional  application  of  the  TransMAPS  package.  Finally, 
the  TransMAPS  Maintenance  Manual  completes  the  current  document.  It 
presupposes  understanding  and  familiarity  with  the  User's  Manual  and  adds 
the  'systems'  perspective  necessary  to  provide  transparent  software 
installation  and  maintenance  to  the  user  community. 


PREFACE 


This  is  Volume  II  of  the  Final  Technical  Report 
on  Transportable  MAPS  Software.  It  constitutes 
the  TransMAPS  Software  User's  Manual;  its 
companion  volumes  contain  a  description  of 
TransMAPS  development  (Volume  I)  and  the 
TransMAPS  Maintenance  Manual  (Volume  III).  This 
volume  is  submitted  in  fulfillment  of  CDRL  item 
A003  of  Contract  #  F30602-80-C-0326. 
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TRANSHA PS  USER'S  MANUAL 


SECTION  ONE 

TRANSPORTABLE  MAPS  SOFTWARE:  THE  USER'S  VIEW 

This  document  provides  formal  description  of  the  Transportable  MAPS 
Software  Rickage  or  'TransMAPS'  from  a  user's  viewpoint. 

1.1  Airpose  and  Applications 

Micro-Adaptive  Picture  Sequencing  (MAPS)  is  a  computational ly-efficient, 
contrast-adaptive,  variable-resolution  spatial  image  coding  technique. 

The  TransMAPS  Software  tackage  implements  the  MAPS  processes  and  related 
support  functions  in  an  integrated  software  system  which  is  designed  to 
be  transportable  among  a  variety  of  high-use  mini -computers  in  the  DEC 
computer  family.  The  purpose  of  this  implementation  is  to  broaden  access 
to  MAPS.  The  ultimate  intent  is  to  establish  a  vehicle  suitable  for 
direct  exploration  of  the  MAPS  technique  and  to  provide  a  system  capable 
of  supporting  functional  application  of  MAPS  to  real  image  coding  tasks. 

The  current  document  addresses  those  areas  specifically  concerned  with 
the  user's  application  of  the  TransMAPS  software.  These  Include  an 
overview  of  the  structure  of  TransMAPS,  general  guidelines  for  user 
interaction,  detailed  information  on  user  options,  a  concise  description 
of  the  underlying  MAPS  concepts  and  processes,  and  several  examples  of 
MAPS  interactive  protocols.  The  Intended  audience  includes  both  those 
who  wish  to  use  TransMAPS  as  a  'black  box'  for  operational  image  coding 
and  those  who  wish  to  explore  the  MAPS  technique  Itself.  The  emphasis 
here  is  on  'what  it  does'  and  'how  to  invoke  it'. 


1.2  User's  Manual  Organization 


Sections  Two  through  Five  provide  the  information  needed  to  gain  an 
initial  facility  with  the  basic  TransMAPS  capability.  Section  Two 
presents  an  overview  of  the  contents  and  structure  of  the  package. 

Section  Three  discusses  general  guidelines  for  the  TransMAPS  interaction 
environment.  Section  Four  then  describes  the  stand-alone  image  assembly 
and  annotation  module,  ANNOTE.  This  module  provides  rudimentary  but 
rapid  and  effective  image  display  support,  even  for  systems  with  no 
formal  image  display  device.  Finally,  Section  Five  describes  the  basic 
protocols  needed  for  MAPS  compression  and  decompression  operations. 

Sections  Six  through  Nine  cover  topics  intended  to  give  the  user  much 
deeper  understanding  and  fluency  in  applying  TransMAPS.  Section  Six 
presents  a  summary  of  the  underlying  MAPS  concepts  and  processes. 

Section  Seven  then  describes  the  entire  space  of  interactive  user  options 
in  detail  and  on  a  module-by-module  basis.  Finally,  Sections  Eight  and 
Nine  present  protocols  for  the  extended  use  of  the  TransMAPS  compression 
and  product  generation  capabilities. 

1.3  References 

The  information  in  this  manual  provides  a  self-contained  guide  to  the  use 
of  TransMAPS.  However,  the  related  volumes  -  TransMAPS  Final  Technical 
Report  and  TransMAPS  Maintenance  Manual  -  may  be  helpful  in  giving 
additional  context  on  the  development  of  the  package  and  its  specific 
embodiment  of  the  MAPS  processes. 

For  more  detailed  information  on  the  origin  and  evolution  of  MAPS,  the 
user  may  also  wish  to  consult  the  following  reports  and  articles: 


RADC  MAPS-Related  Reports: 


LaBonte,  A.  E.  and  C.  J.  MeCallua  (Control  Data  Corporation), 
IMAGE  COMPRESSION  TECHNIQUES,  RADC-TR-77-405 ,  Deceaoer  1977, 
Final  Technical  Report,  Contract  No.  F30602-76-C-0350. 

LaBonte,  A.  E.  and  T.  E.  Rosenthal  (Control  Data  Corporation) 
MAPS  IMAGE  COMPRESSION,  RADC-TR-80-173 ,  May  1980, 

Final  Technical  Report,  Contract  No.  F30602-78-C-0253. 

LaBonte,  A.  E.  (Control  Data  Corporation), 

INFRARED  DATA  COMPRESSION  STUDY,  RADC-TR-80-287 ,  August  1980, 
Final  Technical  Report,  Contract  No.  F30602-79-C-0080. 

SPIE  Proceedings  Articles: 


LaBonte,  A.  E.,  "Two-Dimensional  image  coding  by 
Micro-Adaptive  Picture  sequencing  (MAPS)*, 

Proceedings  of  the  Society  of  Photo-Optical 
Instrumentation  Engineers,  volume  119, 

APPLICATIONS  OF  DIGITAL  IMAGE  PROCESSING, 
pp  99-106,  1977. 

LaBonte,  A.  £.,  "Micro-Adaptive  Picture  sequencing 
(MAPS)  in  a  Display  Environment",  Proceedings  of 
the  Society  of  Photo-Optical  Instrumentation  Engineers, 
Volume  249,  ADVANCES  IN  IMAGE  TRANSMISSION  II, 
pp  61-70,  I960. 


SECTION  TWO 


TRANSMAPS  OVERVIEW 

This  section  gives  an  overview  of  the  contents  and  structure  of  TransMAPS. 
2.1  The  TransMAPS  ffeckage 

The  contents  of  the  TransMAPS  ffcckage  are  summarized  in  Table  2-1.  The 
installed  software  consists  of  seven  process  modules  supported  by  an 
extended  MAPS  file  structure  and  several  related  test  image  and  data 
files. 

• 

The  first  six  program  modules  are  all  directly  MAPS-related.  This  group 
is  further  subdivided  into  modules  concerned  with  MAPS  compression  (#1 
and  #2)  and  modules  concerned  with  MAPS  product  formation  (#3,  #4,  #5, 
and  #6).  The  seventh  module  provides  a  stand-alone  image  assembly  and 
annotation  capability  which  also  gives  immediate  image  display  support 
for  the  MAPS  processes. 

Modules  #1  (SUBFRM)  and  #6  (RASTER)  embody  the  basic  image  interface 
processes  -  conversion  between  external  raster  image  format  and  internal 
MAPS  subframe  organization.  Modules  #2  (MAPS),  #3  (DMAP5),  #4  (ADAPT), 
and  #5  (DIFFER)  operate  on  subframe-organized  imagery.  They  provide 
respectively,  MAPS  compression,  MAPS  decompression  and  resolution  image 
formation,  MAPS  adaptive  image  smoothing,  and  MAPS  difference  image 
formation.  Module  #5  also  yields  an  evaluation  of  MAPS  fidelity 
performance.  Finally,  module  #7  assembles  up  to  two  input  raster  images 
into  a  single  frame  and  allows  addition  of  annotation  in  a  variety  of 
orientations  and  type  sizes.  The  resultant  output  image  can  be  either  in 
the  form  of  another  standard  binary  raster  file  or  in  the  form  of  a 
formatted  pseudo-image  file  suitable  for  listing  on  the  system  line 
printer. 


TABLE  2-1.  CONTENTS  OF  TRANSMAPS 


TransMAPS  Package: 


Seven  Mein  program  Modules: 


11 

SU3FRM 

*2 

MAPS 

13 

DMAPS 

•  4 

ADAPT 

15 

DIFFER 

16 

RASTER 

17 

ANMOTE 

Provided  on 

Raster  to  subframe  conversion 
maps  compression 

maps  Decompression  s  Level  Image 

maps  Adaptive  image  Smoothing 
maps  Difference  Image  rormatlon 
Suoframe  to  Raster  Conversion 
image  Assembly  and  Annotation 


• 

SF.FSV, 

SF.OBJ 

m 

MP.FSV, 

MP.OBJ 

Formation 

DM.TSV, 

DM. OBJ 

AD.FSV. 

AD. OBJ 

DF.FSV, 

DF.OBJ 

RS.FSV, 

RS.OBJ 

AI.FSV, 

AI.OBJ 

FORTRAN  Object  (F4P)  Code  - 


•  X.rsv 

x.OBJ 


Six  Data  Sets: 


Annotation  Symbol-Map  Tables 

MAPS  Compression  Test  Image  (160  x  128)  - 

Sample  MAPS  User  parameter  Set  (Use  with  NTEST)  - 
NAPS  product  Generation  Test  Image  (120  x  128)  - 

Two  'video  Frame'  images  (480  lines  x  624  pixels): 
Building  Scene 
IEEE  Girl 


SfNBOL.BIN 

MTEST.BIN 

MSET.BIN 

GIRL6.BIN 

BLDGIMG.BIN 

C1KLIMG.BIN 


Provided  on  Computer-Compatible  Tape  (CCT) 


maps  File  structure  wltn  standard  Filenames  and  Headers: 


Source  image  (one  subframe/FIXED  Record) 
User  Parameter  Set 

maps  Compression  stream  (FIXED  Records) 
maps  Block/Pattern  image  (Subframes) 
maps  Resolution  Image  (Subframes) 

MAPS  Adaptively  smoothed  Image  (Subframes 
maps  Difference  Image  (Subframes) 

Fidelity  Performance  Summary  (Listing) 
maps  Product  Image  (Raster) 

Annotation  Sympol-Map  Tables 
Annotated  Image  (Raster) 

Annotated  Printer  Pseudo-Image  (Listing) 


-  1MAGE.DAT 

-  MSET.DAT 

-  MAPS.DAT 

-  DMAPS.DAT 

-  LEVEL.DAT 

)  -  ADAPT.DAT 

•  ERROR.DAT 

-  EPR1NT.DAT 

-  XRAST.DAT 

X  *  I,D,L,A,E 

-  SYMBOL. OAT 

•  AN1MG.DAT 

-  APRINT.DAT 


User  Interaction  Pre-Planning  Aids: 

maps  Planning  rorm  -  Compression 

maps  Planning  Form  •  Product  Generation 

Annotation  and  Image  Assembly  Planning  Form 


Documentation: 


TransMAPS  User's  Manual 
TransMAPS  Maintenance  Manual 


i 


Six  data  sets  are  provided  with  the  package.  The  first  contains  the 
bit-map  tables  for  the  annotation  symbol  set.  This  resides  as  a  system 
data  file,  SYMBOL.DAT,  and  is  read  in  automatically  by  module  #7,  ANNOTE 
when  it  is  invoked.  The  second  and  third  data  sets  consist  of  a 
'toy'-sized  diagnostic  test  image,  MTEST.DAT,  and  a  corresponding  sample 
set  of  user  parameters,  MSET.DAT.  The  fourth  data  set  is  also  a 
'toy'-sized  test  image,  GIRL6.DAT;  it  is  particularly  suitable  for 
initial  familiarization  with  the  MAPS  processes.  The  fifth  and  sixth 
data  sets,  BLDGIMG.DAT  and  GIRLIMG.DAT,  are  examples  of  real-world 
'video'-sized  images. 

Communication  of  image  data  among  the  modules  is  provided  through  the 
MAPS  file  structure.  Ancillary  data  is  contained  in  standardized  file 
headers  and  each  file  type  has  a  unique  but  standard  name.  Thus,  the 
intermodule  data  transfer  is  transparent  to  the  user.  However,  the  file 
names  provide  simple  mnemonics  for  their  contents  so  the  user  can  assess 
the  status  of  MAPS  processing  through  a  simple  review  of  the  appropriate 
file  directory. 

Application  of  TransMAPS  is  supported  externally  by  a  group  of  user  aids 
and  the  set  of  software  documentation.  The  aids  are  presented  as  three 
'planning  forms'  for  MAPS  Compression,  MAPS  Rroduct  Generation,  and 
Annotation  and  Image  Assembly.  These  forms  chart  the  extensive  space  of 
MAPS  user  options  and  allow  its  structure  to  be  seen  at  a  glance.  User 
entries  on  the  forms  provide  for  both  pre-planning  and  documentation  of 
TransMAPS  interactive  sessions. 

The  formal  software  documentation  consists  of  the  TransMAPS  Maintenance 
Manual  and  this  TransMAPS  User's  Manual. 


2.2  TransHAPS  Structure 


The  structure  of  the  TransHAPS  software  system  is  depicted  in  Figure 
2*1.  This  presentation  shows  the  detailed  relationship  between  the  seven 
TransMAPS  process  modules  and  the  TransHAPS  system  of  HAPS  standard 
files.  Figure  2-1  provides  a  self-contained  roadmap  to  TransHAPS  and 
should  be  viewed  as  the  key  reference  whenever  a  system  overview  is 
required. 


Ussr.DAT 


\ 


* 


b 


Sourca  Rulti  Imago 


,  M8ET.DAT _ L 

—I  MAPS 


U««r  hrmlm  }  MAPS. OAT 


MAPS  Uock/Pattarn 
Subframa 


ERROR.DAT  T 

<T! 


MAPS  Dlffaraaaa  Sublraaia 
EPRINT.DAT 


(Any  Ona) 


RASTER 


Fldolity  Partormanco  Dating 


SYMBOL.DAT 


T  xRA8T.DAT  (  x  -  I.D.L.A.  or  E  ) 


Symbol-Map  Tablaa 


Procasi  Modulo 


APRINT.DAT 
Dna-Prlntar  Paaudo-laiaga 

Disk  File 


Figure  2-1.  TransMAPS  Structure 


MS 


1 1-8 


SECTION  THREE 


TRANSMAPS  INTERACTION  ENVIRONMENT 

TransMAPS  is  designed  to  be  extensively  interactive  to  accommodate  the 
large  space  of  available  user  options.  This  section  describes  the 
general  guidelines  appropriate  to  these  interactions. 

3.1  Input  and  Output  File  Formats 

The  communication  of  external  image  data  files  to  and  from  the  TransMAPS 
system  takes  place  in  modules  #1  (SUBFRM),  #6  (RASTER)  and  #7  (ANNOTE). 
TransMAPS  expects  these  images  in  the  form  of  raster-organized  binary 
files  with  one  image  line  per  logical  record.  The  raster  geometry 
conventions  require  the  pixel  index  to  increase  sequentially  along  each 
line  from  left  to  right,  and  the  line  index  to  increase  sequentially  down 
the  image  from  top  to  bottom.  This  is  essentially  a  video  convention  for 
the  geometry  except  that  it  does  not  involve  line  interlace. 

Two  pixel  formats  are  supported  for  the  external  imagery  in  TransMAPS  - 
an  eight-bit  pixel  and  six-bit  pixel  right-justified  in  an  eight-bit 
field  (the  so-called  DICOMED  format). 

TransMAPS  is  designed  to  accommodate  logical  records  up  to  4000  pixels 
(bytes)  in  length,  although  such  large  images  are  computationally 
expensive  to  process  on  a  mini -computer  system.  However,  in  order  to 
minimize  buffer  space  requirements,  TransMAPS  expects  the  logical  records 
to  be  partitioned  into  much  smaller  physical  records  through  the  use  of 
the  SEGMENTED  record  type.  Since  no  universal  standard  for  image  file 
format  is  available,  each  local  'standard'  digital  image  form  is  unknown 
a  priori  and  likely  to  vary  from  site  to  site.  Thus,  responsibility  for 
expressing  the  raster  source  imagery  as  a  SEGMENTED  binary  file  is 


presumed  to  reside  with  personnel  at  each  site.  The  test  imagery 
supplied  with  the  TransMAPS  package  is,  of  course,  already  in  this 
SEGMENTED  format. 

3.2  Terminal  Interaction  Formats 

Each  of  the  seven  TransMAPS  modules  is  invoked  by  an  MCR  (DEC'S  Monitor 
Console  Routine)  command  of  the  generic  form  'RUN  Taskname'.  Here, 
'Taskname'  takes  on  either  a  long  or  short  version  for  each  module  as 
listed  in  the  following  tabulation: 


Module  #1 

SUBFRM 

or 

SF 

Module  #2 

MAPS 

or 

MP 

Module  #3 

DMA  PS 

or 

DM 

Module  #4 

ADAPT 

or 

AD 

Module  #5 

DIFFER 

or 

DF 

Module  #6 

RASTER 

or 

RS 

Module  #7 

ANNOTE 

or 

AI 

Once  the  module  is  invoked,  code  internal  to  the  module  directs  the 
interaction  to  select  values  or  states  for  the  required  user  options. 
Typically,  the  program  requests  an  update  to  an  option  with  a  query  in 
the  form: 

'Option  descriptor*  ?  ('Allowed  Range')  'Current  Value' 

The  'Allowed  Range'  is  adjusted  dynamically  to  account  for  any  changes  in 
constraint  imposed  by  prior  option  selections.  'Current  Value'  initially 
displays  the  system  default  value  for  the  option.  Thereafter,  it 
presents  either  the  most  recent  selection  or  the  closest  value  from  the 
current  allowed  range. 
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Insofar  as  possible,  user  responses  to  these  option  queries  are  limited 
to  a  very  small  number  of  generic  types.  Consistent  response  formats 
have  been  sought.  These  types  divide  first  Into  two  general  categories  - 
numeric  and  alpha-literal.  The  numerics  are  mostly  single  numbers  (a 
string  of  contiguous  decimal  digits,  possibly  with  sign  and  decimal 
point).  Occasionally,  a  numeric  response  In  the  form  of  a  vector  of 
numbers  Is  required.  In  «. ..e  vector  case,  successive  components  are 
separated  by  simple  blank  spaces.  If  several  adjacent  components  have 
the  same  value,  they  may  be  entered  with  the  sequence  of  a  'repeat  count' 
followed  by  an  asterisk  followed  by  the  common  'value'  (r*v).  For  all 
numerics,  a  slash  character  (/)  followed  by  a  carriage  return  is  used  to 
denote  the  default  response,  'no  change'.  A  slash  (/)  inserted  before  a 
list  of  vector  components  Is  exhausted  denotes  that  all  remaining 
components  are  left  unchanged. 

The  alpha-literal  responses  further  subdivide  into  three  types  -  Y  or  N 
for  'yes'  or  'no';  a  single  mnemonic  letter  for  a  menu  choice;  and  a 
contiguous  symbol  string  for  a  filename,  an  image  name,  or  a  message, 
text.  The  'no  change'  default  for  alpha-literals  Is  normally  a  simple 
carriage  return.  However,  for  consistency  with  the  numeric  case,  a 
leading  slash  (/)  is  also  interpreted  as  the  'no  change*  response.  The 
only  limitation  that  this  Imposes  is  that  a  message  text  cannot  begin 
with  a  slash  symbol  (/). 

Module  #2  (MAPS)  and  module  #7  (ANNOTE)  have  particularly  extensive 
option  spaces.  In  order  to  avoid  the  tedium  of  providing  long  strings  of 
•no  change*  responses,  the  Interactions  for  these  modules  have  been 
subdivided  into  smaller  groups  of  related  options.  At  the  beginning  of 
each  group,  the  user  is  given  the  choice  of  entering  the  group  for  option 
review  and  update  or  simply  accepting  the  current  values  for  all  options 
in  the  group. 


The  user  Is  also  given  extensive  recovery  and  change  control  in  the 
interaction.  For  matrix  option  specifications  such  as  those  for 
macro-fidelity  image  partition  or  micro-fidelity  contrast  thresholds,  the 
code  provides  immediate  feedback  by  updating  and  displaying  the  matrix 
after  each  line  (vector)  of  user  responses.  Moreover,  the  user  can 
access  any  line  again  and  in  any  order  to  make  corrections.  In  effect,  a 
simple  'editing'  mode  is  available.  Similarly,  for  extended  text  entry 
such  as  that  which  may  be  encountered  in  defining  annotation  messages, 
all  text  is  collected  and  displayed  together  on  the  terminal  screen  after 
initial  entry.  Again,  an  'editing'  mode  is  enabled  which  allows 
individual  messages  from  this  collection  to  be  repeatedly  corrected  until 
the  total  text  is  satisfactorily  defined. 

Finally,  the  last  query  in  the  interaction  for  each  module  gives  the  user 
the  choice  of  returning  to  review  (and  possibly  modify)  the  entire  set  of 
option  selections  or  to  proceed.  This  insures  the  opportunity  for 
parameter  verification  before  the  image  processing  resources  are 
committed. 

3.3  PIP  Fi lename  Manipulations 

The  modular  structure  of  TransMAPS  allows  many  strategies  and  time 
sequences  for  the  application  of  the  package.  For  example,  the  raster  to 
subframe  conversion  (SUBFRM)  might  be  run  once  on  a  particular  source 
image.  Next,  the  MAPS  compression  process  (MAPS)  might  be  run  several 
times  with  different  control  parameters  before  proceeding  with  MAPS 
product  generation.  Each  invocation  of  a  process  module  produces  a  new 
set  of  output  files.  For  files  with  the  same  filename  -  for  example, 
MAPS.DAT  -  successive  files  are  distinguished  by  increasing  file  'version 
numbers'.  The  file  specification  has  the  form  MAPS.DAT; 'version'  where 
'version'  is  an  octal  number.  When  a  module  is  invoked  which  requires  a 


» 
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particular  file  type  as  Input  -  for  example,  module  #3  DMAP5  requires 
HAPS. OAT  -  It  automatically  opens  and  accesses  the  latest  version. 

In  order  to  access  earlier  versions  of  a  file,  some  capabilities  of  DEC' 
PIP  utility  (feripheral  Interchange  Program)  can  be  exploited.  In 
particular,  the  PIP  switches  '/RE',  */EN',  and  '/RM‘  along  with  the 
subswitch  '/NV'  are  relevant.  These  switches  play  the  following  roles: 

/RE  Rename  -  allows  any  portion  of  a  file  specification, 

'filename. filetype;version*  to  be  changed; 

/EN  Enter  -  allows  a  synonym  file  specification  to  be 

entered  into  the  file  directory,  access  to 
the  file  is  allowed  under  any  of  its  synonyms 

/RM  Remove  -  allows  a  synonym  to  be  removed  from  the  file 

directory  without  removing  the  file  or  its 
other  names; 

/NV  New  Version  -  supplies  a  'version  number'  one  larger 

than  the  latest  version  when  used  with 
/RE  or  /EN. 

An  example  of  the  use  of  these  switches  is  provided  by  the  following 
generic  command  line: 

PIP  Filename. DAT/RE/NV  =  Fi lename.DATjearlyversion. 

In  this  case,  'earlyversion'  is  renamed  to  the  (new)  latest  version  and 
will  be  accessed  by  any  module  which  opens  'Filename.DAT'  for  input. 


Additional  PIP  facilities  which  are  useful  in  controlling  file 
proliferation  are  the  purge  and  delete  switches  '/ Ptl 1  and  '/DE*  -  RJRGE 
eliminates  all  but  the  most  recent  version  associated  with  a  particular 
filename  and  DELETE  eliminates  a  file  with  an  explicit  version  numbef 
specified.  Obviously,  these  commands  must  be  used  with  care  to  avoid 
inadvertent  deletion  of  files  which  were  to  be  kept. 

These  various  PIP  system  utilities  clearly  provide  great  flexibility  in 
maintaining  the  MAPS  file  environment. 


SECTION  FOUR 


IMAGE  ASSEMBLY  AND  ANNOTATION 

Module  #7,  ANNOTE,  provides  a  stand-alone  image  assembly  and  annotation 
capability  which  can  be  used  either  with  MAPS  products  output  from  module 
#6  or  with  other  user-supplied  raster  images.  Because  of  its  role  in 
'quick-look*  pseudo-image  display  (using  the  system  line  printer),  ANNOTE 
is  introduced  in  this  section,  out  of  normal  order.  As  a  consequence, 
ANNOTE  becomes  available  to  provide  visual  output  for  examination  of  the 
results  of  MAPS  process  applications. 

4.1  Annotation  and  Image  Assembly  Planning  Form 

The  user  options  for  ANNOTE  are  summarized  In  the  'Annotation  and  Image 
Assembly  Planning  Form'  presented  in  reduced  si2e  as  Figure  4-1.  The 
actual  form  just  fills  the  length  of  an  8-1/2"  by  11"  sheet  -  large 
enough  for  comfortable  user  entry.  ANNOTE  allows  the  assembly  of  up  to 
two  input  raster  images  Into  a  single  output  frame.  Moreover,  It  can  be 
run  recursively  to  assemble  several  Images  by  taking  the  output  from  a 
previous  run  as  one  of  the  Inputs  to  the  current  run.  Restriction  to  two 
input  images  at  a  time  Is  largely  a  consequence  of  the  32K  task  size 
limit  Imposed  by  the  sixteen-bit  word  length  of  the  PDP-11. 

ANNOTE  has  two  output  frame  modes.  In  the  first,  an  ordinary  binary 
raster  image  file  is  created.  This  is  the  mode  to  be  used  for  recursion 
or  for  making  large  image  frames  (up  to  4000  pixels)  for  subsequent 
transfer  to  a  large-format  display  device  such  as  an  Optronics 
Fhotowrite.  The  second  mode  is  limited  to  image  widths  of  128  pixels  per 
line  and  creates  a  formatted  pseudo-image  file  to  be  listed  on  the  system 
line  printer.  This  mode  has  very  coarse  Intensity  granularity  (only 
eight  gray-scale  levels)  and  uses  only  one  overprint  per  line.  Even  with 


Figure  4-1.  Annotation  and  Image  Assembly  Planning  Form 


these  severe  dynamic  range  restrictions,  the  resultant  'Images1  convey  a 
surprising  amount  of  Information.  Indeed,  certain  small  Irregularities 
and  artifacts  are  enhanced  by  the  process  so  It  makes  a  very  effective 
tool  for  exploring  MAPS  fidelity  performance. 

Two  of  the  main  features  of  the  ANNOTE  option  space  have  just  been 
discussed.  From  the  planning  form  in  Figure  4-1,  however,  it  is  seen 
that  there  are  three  groups  of  options  and  each  group  contains  several 
entries.  These  three  categories  will  be  discussed  in  the  next  three 
subsections. 

4.2  Output  Frame  Specification 

The  first  user  option  Is  the  choice  between  output  image  types  -  raster 
file  (the  default)  or  printer  pseudo-image.  The  standard  filename  for 
the  raster  file  is  ANIMG.DAT;  the  filename  for  the  printer  listing  is 
AFRINT.DAT. 

The  next  pair  of  options  specify  the  size  of  the  output  frame.  Numeric 
values  for  the  number  of  image  LINES  and  the  number  of  PIXELS  per  line 
are  required  here.  The  number  of  bits  per  pixel  is  always  assumed  to  be 
eight  in  this  module.  Note  that  the  'video'  geometry  conventions  -  pixel 
index  increasing  left  to  right,  line  index  increasing  top  to  bottom  -  are 
in  force  for  all  images  in  ANNOTE. 

The  final  output  frame  option  is  the  choice  of  whether  to  make  the  frame 
background  clear  (gray-scale  0)  or  opaque  (gray-scale  255).  The  default 
is  'clear'  but  a  ' Y '  response  to  the  'COMPLEMENT  ?'  query  will  change  the 
background  to  'opaque'. 


4.3  Embedded  Input  Image  Specifications 

The  first  option  is  the  choice  of  the  number  of  input  images  to  be 
assembled.  The  allowed  values  are  0,  1,  and  2.  A  value  of  'O'  skips  the 
rest  of  the  specification  and  would  be  chosen  if  a  'text-only'  output 
frame  were  desired.  A  value  of  *  1 '  would  be  chosen  if  it  were  desired  to 
annotate  a  single  image.  A  value  of  '2'  implies  the  assembly  of  a  pair 
of  images,  one  or  both  of  which  might  have  been  the  output  from  previous 
ANNOTE  invocations. 

Each  embedded  input  image  then  requires  specification  of  eight  additional 
selections.  First,  the  filename  for  the  input  image  must  be  entered; 
this  can  be  up  to  nine  characters  long  and  is  an  alpha-numeric  string. 

If  the  input  image  is  a  MAPS  raster  product,  the  filename  will  be  one  of 
IRAST,  DRAST,  LRAST,  ARAST,  or  ERAST  dependent  on  the  product  type.  The 
latest  version  of  the  corresponding  file  will  be  accessed.  Raster  images 
other  than  MAPS  products,  or  MAPS  images  which  have  been  renamed  using 
the  PI P  utilities,  will  have  to  have  the  corresponding  filenames  entered 
as  they  appear  in  the  file  directory.  Note  that  in  all  cases,  the  file 
type  must  be  '.DAT'  and  is  not  entered  explicitly. 

The  next  two  input  image  parameters  involve  file  positioning.  ANNOTE 
contains  provision  for  skipping  into  the  image  by  a  specified  number  of 
lines  and  pixels.  The  queries  require  numeric  values  for  SKIP  LINES  and 
SKIP  PIXELS.  The  default  for  each  is  zero. 

The  size  of  the  embedded  image  is  selected  next  through  input  of  two 
numerics  for  LINES  and  PIXELS.  Note  that  the  embedded  image  must  be 
smaller  than  the  output  frame;  the  program  enforces  this  condition  if 
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values  which  exceed  this  are  transmitted.  The  number  of  pixels  allowed 
is  also  constrained  by  the  condition: 

PIXELS  +  SKI  P  PIXELS  <  4001 

Two  more  numerics  are  required  to  specify  the  position  of  the  embedded 
input  image  in  the  output  frame.  The  position  is  given  in  terms  of  the 
output  frame  location  for  the  START  LINE  and  START  PIXEL  corresponding  to 
the  upper  left  pixel  ('origin')  of  the  input  image.  Here  again,  the 
allowed  range  is  determined  and  displayed  in  terms  of  the  relative  sizes 
of  the  input  and  output  frames;  violations  are  automatically  reset  to  the 
closest  allowed  value. 

The  final  option  for  each  input  image  is  the  choice  of  whether  the  gray 
scale  is  to  be  direct  (the  default)  or  COMR.EMENTED.  This  feature  is 
useful  in  creating  or  converting  images  in  'negative'  form. 

Note  that  when  two  input  images  are  to  be  assembled,  they  are  allowed  to 
'conflict'  within  the  output  frame  even  though  each  must  fit 
individually.  The  conflict  resolution  convention  is  that  Input  Image  2 
overwrites  Input  Image  1  where  they  overlap.  Thus,  if  successive  images 
are  being  added  to  a  frame  by  recursion,  the  output  image  from  the 
previous  ANNOTE  run  should  be  Input  Image  1  in  the  current  run. 

4.4  Annotation  Message  Specifications 

The  number  of  annotation  messages  can  range  from  zero  to  twenty  and  this 
is  the  first  option  selected  in  the  embedded  annotation  interaction.  If 
zero  is  chosen,  the  remainder  of  the  interaction  is  skipped. 

Each  message,  up  to  the  number  chosen,  is  then  entered  in  a  hierarchical 
fashion.  Successive  option  choices  for  the  message  tend  to  constrain 


11-19 


I 


later  choices  and  this  is  reflected  in  the  dynamic  changes  of  the 
respective  'allowed  range'  displays.  Seven  options  must  be  entered  for 
each  message. 

Messages  can  be  oriented  in  any  of  four  directions  with  the  top  of  the 
symbols  toward  the  'Top',  'Bottom',  'Left',  or  'Right'  of  the  output 
frame.  This  facility  is  provided  so  that  the  annotation  can  be  matched 
to  the  scene  content  if  the  scene  doesn't  match  the  'video'  geometry. 

The  user  must  respond  with  a  single  character  literal  T,  B,  L,  or  R  to 
this  orientation  query. 

Once  the  orientation  has  been  specified,  the  number  of  symbols  of  each 
size  which  can  be  fit  within  the  output  frame  can  be  determined.  The 
next  option  requires  the  user  to  give  a  numeric  specification  of  the 
message  length  in  characters.  This  length  can  be  up  to  the  maximum 
allowed  by  the  image  frame  at  the  desired  symbol  size  (but  no  more  than 
fifty  characters  if  that  is  smaller).  Allowed  ranges  as  a  function  of 
symbol  size  are  supplied  as  part  of  the  interactive  user  prompt  for  this 
option  selection.  Note  that  a  particular  message  can  be  deleted  during 
any  editing  step  by  simply  specifying  a  zero  character  count. 

The  symbol  size  is  then  chosen  from  those  still  allowed  for  this 
orientation  and  message  length.  Initially,  symbol  sizes  of  lx,  2x,  3x, 
and  4x  are  possible.  These  correspond  to  characters  in  frames  which  are 
16x16,  32x32,  48x48,  and  64x64  pixels  in  size. 

Location  of  the  message  in  the  output  frame  is  selected  next.  This 
position  is  specified  by  giving  the  output  frame  CENTER  LINE  and  CENTER 
PIXEL  coordinates.  Specification  of  the  position  of  the  center  of  the 
message  avoids  having  to  remember  an  orientation-dependent  convention. 

The  user  is  also  given  the  choice  of  whether  the  characters  are  to  be 
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•direct'  (opaque  symbols  in  a  clear  frame)  or  COMPLEMENTED  (clear  symbols 
in  an  opaque  frame). 


Finally,  the  user  supplies  the  message  text  stream  itself.  This  is 
prompted  with  a  display  of  the  sixty  allowed  symbols  in  the  annotation 
character  set  and  a  line  of  dashes  corresponding  to  the  chosen  length  of 
the  message. 

Note  that  annotation  overwrites  the  embedded  images  where  they  overlap. 
Later  messages  can  also  overwrite  earlier  messages.  However,  this  is 
usually  not  desired  except  in  very  special  circumstances.  Thus,  ANNOTE 
provides  a  message  conflict  analysis  and  prompts  editing  of  either  the 
overwritten  or  overwriting  message  to  correct  the  situation. 
Nevertheless,  the  conflict  can  be  retained  if  desired. 

4.5  Image  Labeling  Example 

Figure  4-2  shows  a  completed  planning  form  for  a  simple  example  of  image 
labeling.  The  pseudo-image  output  mode  has  been  chosen  and  a  single 
input  image  is  used.  This  image  is  the  GIRL6.DAT  'toy'  test  image  which 
has  been  converted  from  6-bits  to  8-bits  by  running  it  successively 
through  SUBFRM  and  RASTER.  Note  also  that  the  product  image  IRAST.DAT 
has  been  renamed  to  GIRL.DAT  using  PIP  with  a  /RE  switch. 

The  output  frame  was  given  twenty  more  lines  than  the  input  frame  size. 
This  extra  space  was  then  used  to  'annotate*  the  input  image  with  a 
message  outside  of  its  boundaries.  The  'message'  in  this  case  simply 
lists  the  image  size  in  'lines  x  pixels';  the  smallest  symbol  size  was 
chosen  here. 


The  results  of  the  ANNOTE  Interactive  session  are  displayed  as 
Figure  4-3.  Note  here  that  the  printer  has  been  reset  to 
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Figure  4-2.  Image  Labeling  Planning  Form 


eight-1 ines-per-inch  mode  to  make  the  'pixels'  more  nearly  square  (a 
ratio  of  8:10  rather  the  normal  printer  6:10).  This  printer  mode  is 
recommended  for  consistent  use  with  ANNOTE. 

4.6  Annotation  Options  Examples 

Figure  4-4  presents  the  completed  planning  form  for  an  'annotation-only' 
output  frame  which  exhibits  samples  of  the  various  annotation  options. 
Again,  the  pseudo-image  output  form  was  selected  but  this  time  with  the 
background  COMR.EMENTED.  The  messages  were  constructed  to  show  the  range 
of  symbol  size,  the  four  message  orientations,  direct  and  COMPLEMENTED 
messages,  and  the  complete  set  of  sixty  characters. 

The  resultant  printer  listing  is  displayed  as  Figure  4-5.  The  various 
messages  fill  the  output  frame  except  for  a  small  rectangular  patch  in 
the  upper  left-hand  corner;  there  the  effect  of  the  background  complement 
is  seen.  Independent  planning  and  replication  of  this  image  is  an 
excellent  exercise  to  familiarize  the  new  user  with  the  annotation 
process. 

A  much  more  ambitious  illustration  of  the  annotation  options  is  portrayed 
in  Figure  4-6.  Here,  all  sixty  symbols  appear  in  all  four  sizes  at  all 
four  orientations  with  alternate  direct  and  COMPLEMENT  intensities.  This 
example  was  prepared  on  a  PDP-11/70  and  then  transferred  via  magnetic 
tape  to  an  off-line  Optronics  Fhotowrite  facility.  Figure  4-6  summarizes 
how  the  ANNOTE  annotation  options  appear  in  a  real  image  display  mode. 


a 


» 

a 

a 

a 

» 

a 

a 

s 


i 

i 


■ 


d  n  ja  •».  , 

v»  *|  C|  «|  3n  m 

:2 ?  St1 

+i «  «*j  *i  ®j  ai  vi 


«*-t  «i 

m  f 


M 

rfl  • 


*i*i 

N 


♦)MV«'*I 


V  +1  Vt«OIM 


S  u  A®®®®®®®  ®  *  * 

-  9  ££££©©©©©©££££££££££ 

a 


i  ®S  ^^M^sNsIsM^^ 


Na  2*9 aaaaaaaaaaaaaaaa 

©?£ 3©0©©d©d©de©©©©£  3 

a  1  -H-H-H-HH-H-H+iNtM  I 


E 


a 

c 


c 

c 

«o 


Q- 


a> 

a 


c 

o 


(0 

4-9 

O 

c 

c 

c 


I 


<v 

s- 


<  XhBCDEFGH I jklmn/ 
<XOPQRSTUVWXYZ/> 
£+-*/=♦+  .  ,  : 

23456789*> 


X  A 
IZX  A! 
ENo\°  t 

|J  >-••<& 

-00 

ps  -r- 

m>  CD 

ID->LD 

III  co  ii  co 

LlI  CL  \  C\J 
IQO  *  -h 
UQ_  I  O 

mo  +  i 

(EX  VI 
/V 


XA 

z\ 

2N 

J>- 

xx 


<  XflBCDEFGHI JKLMN/  > 

<VOPQRSTUVWXYZ/> 

<  +  -*/=tl  .  ,  :  °x  > 

0  1  23  456789^^PiAx 

IA  X  D 


M> 

ID**  ID 

OI-4-^t 
lL(0  II  CO 
LIENCSI 

OCL  I  O 
OO+i 

ay 
xv 


HIJKLMN/ > 


<XOPQR3TUVWXYZ/> 


£  +  -*/=♦ ♦  . , : AX 

♦  0  123456789*  IAXD 


O  I  TJO 

>*#oo 

i\)\3ni 

wuccn 

^♦HO 

UM-CI 


iXNZ 


G  8 


M 


*  r  j  G 


.i  JG  I'd  y 


t  +  O  CO 
O  I  HO 
K  ^  OD 

w\hfi 

co  n  co  ~n 

F->HQ 

cn«-ci 
oo  <  M 
o-  zc 

00-  XA 

c o--<r 

I  o\c  N  ^ 
IV  \z 
vx 


A  * 
IAX3> 

♦  +oro 

O  l  TJO 

*oo 

M\Tjm 

co  ii  co~n 

^■HO 

oi*ci 

<M 


+  68Z.SS*e3TO  + 

^S«  :  '  *  ♦  ♦  =/*-  +  5 

</ZAXMAfUSMOdOX> 

<  xNHnxf'iHOdaaoaox) 


-  X* 

♦♦-<r 

♦  S?N2 
IVXZ 

vx 


<-68/.9StCZ  T  0  * 

<%:  <  •  H=/*-  +  >' 

|</ZAXMAniSdOdOX>| 

xN(Ain>jriHOd3aoawx  > 


Figure  4-6.  Annotation  Options 


1-2 


SECTION  FIVE 


MAPS  COMPRESSION/DECOMPRESSION:  BASIC  USE 

The  basic  or  core  MAPS  processes  are  contained  in  four  modules  -  #1 
SUBFRM,  #2  MAPS,  #3  DMA  PS,  and  #6  RASTER.  This  section  describes  the 
broad  classes  of  user  interaction  required  by  each  of  these  modules.  It 
then  illustrates  the  entire  flow  by  presenting  the  complete  interactive 
protocol  for  a  simple  example.  The  protocol  is  a  direct  photocopy  of  the 
resulting  DEC-writer  listing. 

5.1  Raster  to  Subframe  Conversion  -  SUBFRM 

The  user  interaction  in  module  #1  is  divided  into  four  option  groups. 

The  first  group  involves  'source  image  indentification'  and  requires 
specification  of  the  filename  for  the  source  raster  and  a  user  image  name 
to  be  carried  in  the  MAPS  standard  file  headers. 

The  second  group  involves  'source  image  position  specification'  and 
requires  input  of  the  number  of  lines  and  pixels  to  be  skipped  into  the 
source  raster  file.  The  defaults  are  zero  for  both  lines  and  pixels. 

The  third  group  involves  'source  image  size  specification'  and  requires 
input  of  the  number  of  lines,  the  numbr  of  pixels  per  line,  and  the 
number  of  bits  per  pixel  for  the  portion  of  the  source  raster  frame  to  be 
processed.  The  number  of  pixels  to  be  skipped  plus  the  number  of  pixels 
retained  can  total  up  to  4000.  The  number  of  bits  per  pixel  can  be 
either  eight  or  six  right-justified  in  eight;  the  default  is  eight. 

The  final  group  involves  'source  image  partition  specification'  and 
requires  choice  of  the  subframe  size  to  be  used.  The  subframes  can  be 
8x8,  16x16,  or  32x32  pixels.  The  source  image  frame  is  automatically 


padded  in  both  the  line  and  pixel  directions  to  allow  division  into  an 
integral  number  of  complete  subframes.  If  a  subframe  size  of  8x8  is 
chosen,  the  user  has  the  additional  option  of  selecting  between  a  square 
grid  of  subframes  or  a  'staggered1  grid.  In  the  staggered  case,'  each 
successive  subframe  along  the  pixel  direction  starts  three  lines  later 
(or  five  lines  earlier)  than  the  immediately  preceding  subframe.  This 
gives  the  grid  somewhat  of  a  'brick  wall'  appearance  and  tends  to  break 
up  the  'blockiness'  of  the  partition.  The  default  selections  are  8x8 
subframes  in  a  square  grid. 

5.2  MAPS  Compression  -  MAPS 

The  complete  option  space  for  module  #2  allows  subtle  and  flexible 
control  over  the  MAPS  compression  process.  However,  for  basic  MAPS 
compression  applications,  a  very  simple  control  strategy  suffices.  The 
first  query  in  the  interaction  for  this  module  requires  selection  of  the 
subsequent  interactive  mode.  For  routine  use,  the  'Quick'  mode  should  be 
selected.  The  other  two  modes,  'User*  and  'Full',  will  be  elaborated  in 
Section  Seven.  Note  that  the  'Quick'  mode  is  also  the  default. 

The  only  other  option  required  of  the  user,  then,  is  specification  of  the 
'Contrast  Scale'  for  the  MAPS  micro-control  thresholds.  This  is  the  one 
parameter  which  is  strongly  dependent  on  scene  content  and  overall  image 
intensity  statistics.  An  intuitive  sense  of  approximate  range  for  a 
given  image  type  and  desired  compression  should  emerge  with  experience. 
Initially,  however,  empirical  exploration  appears  to  be  required  here. 

5.3  MAPS  Decompression  -  DMA  PS 

This  module  generates  the  tonal  decompressed  image  from  the  MAPS  data 
stream.  It  also  creates  a  companion  MAPS  'resolution'  image  from  this 
same  stream  but  it  is  an  ancillary  product  and  will  be  illustrated 


later.  MAPS  decompression  is  automatic  and  requires  no  interaction  other 
than  initial  invocation  of  the  module. 

5.4  Subframe  to  Raster  Conversion  -  RASTER 

The  only  option  to  be  specified  in  this  module  is  the  selection  of  the 
MAPS  product  type.  Two  products  are  relevant  for  the  basic  application 
of  MAPS.  The  first  is  simply  the  re-establishment  of  the  source  image  in 
an  eight  bit  version  and  raster  format  with  only  the  selected  number  of 
lines  and  pixels  retained.  Here,  the  user  selects  conversion  of  file 
IMAGE.DAT  to  file  IRAST.DAT. 

The  other,  more  interesting,  basic  product  is  the  MAPS  decompressed  tonal 
image.  Here,  the  user  selects  conversion  of  file  DMAPS.DAT  to  DRAST.DAT. 

5.5  User  Interaction  R"otocol  ('Quick1  Mode) 

The  following  sequence  of  modules  was  invoked  to  illustrate  the  basic 
application  of  MAPS  to  image  coding  and  reconstruction: 

RUN  SF  Conversion  of  source  image  to.  subframes 

RUN  MP  MAPS  compression 

RUN  DM  MAPS  decompression 

RUN  RS  Conversion  of  source  image  to  raster 

RUN  RS  Conversion  of  MAPS  image  to  raster 

RUN  AI  Assembly  of  images  for  printer  display 

The  input  image  was  chosen  as  the  GIRL6.DAT  'toy'  image  and  an  8x8 
staggered  subframe  partition  was  used. 


The  SUBFRM  protocol  follows  and  is  just  as  it  evolved  on  the  DEC-writer 
User  responses  are  left-justified  along  the  edge  of  the  listing.  The 
listing  is  essentially  self-descriptive: 


RUN  DR1 !C50»27ISF 

********************************************* 

*  * 

*  HAPS  RASTER  TO  SUBFRAME  CONVERSION  MODULE  * 

*  * 
********************************************* 

SOURCE  identification: 

SOURCE  RASTER  FILENAME?  (UP  TO  9  CHARACTERS)  F0R002 
0IRL6 

USER  IMAGE  NAME?  (UP  TO  8  CHARACTERS) 

OIRL 

SOURCE  IMAGE  POSITION! 

NUMBER  OF  LINES  TO  SKIP?  0  (/  -  NO  CHNG) 

/ 

NUMBER  OF  PIXELS  TO  SKIP?  (<  4000)  0  (/  -  NO  CHNG) 

/ 

SOURCE  IMAGE  SIZE! 

NUMBER  OF  LINES  TO  PROCESS?  480  (/  -  NO  CHNG) 

120 

NUMBER  OF  PIXELS  TO  PROCESS?  (UP  TO  4000)  624  (/  -  NO  CHNG) 

128 

NUMBER  OF  BITS/PIXEL?  (6  8)  8  (/  -  NO  CHNG) 

6 

SOURCE  IMAGE  PARTITION! 

SUBFRAME  EDGE?  (8  16  32)  8  (/  -  NO  CHNG) 

/ 

STAGGER  GRID?  (Y  OR  N)  N 
Y 


USER  SPECIFICATION  COMPLETE! 

**************************** 

REVIEW?  <Y  OR  N)  N 
N 

CONVERTING  IMAGE  GIRL  TO  254  SUBFRAMES 


The  MAPS  protocol  shows  selection  of  the  'Quick'  mode  and  the  subsequent 
choice  of  a  'Contrast  Scale'  of  72.  The  'SAVE  ...'  query  is  associated 
with  retention  of  parameters  for  later  use  in  the  'User'  mode;  it  will  be 
discussed  in  Section  Eight.  The  resulting  DEC-writer  listing  is: 

RUN  DRl l C50.273MP 

*************************** 

*  * 

*  NAPS  COMPRESSION  MODULE  * 

*  * 

*************************** 

USER  OPTION  MODES 1 

Q  -  QUICK  MODE  (SELECT  CONTRAST  SCALE  ONLY) 

U  -  USER  PRE-DEPINED  PARAMETERS  FROM  FILE  MSET .DAT 

F  -  FULL  OPTION  REVIEW  AND  SELECTIVE  REVISION 

MODE?  <Q  U  F)  0 
Q 

CONTRAST  SCALE?  20.0  </  -  NO  CHNG) 

72 


USER  SPECIFICATION  COMPLETE* 

**************************** 

REVIEW?  (Y  OR  N)  N 

N  SAVE  THESE  PARAMETERS  FOR  FUTURE  USE?  (Y  OR  N)  N 
N 

MAPS  COMPRESSING  IMAGE  GIRL  »  120  LINES  BY  128  PIXELS 

MAPS  FILE  CONTAINS  7  512-BYTE  RECORDS  PLUS  413  BYTES  IN  THE  LAST 

MAPSEL  distribution: 

level:  0123 

COUNT!  1172  1571  422  32 

OPTIMAL  BIAS!  -6  -2  0 

♦  9  5  0 

COMPRESSION  RATIO:  2.882  :  1 

bits/pixel:  2.08177 

MEAN  SQUARE  ERROR:  0.17221  X 

> 

Note  that  after  completion  of  the  compression  task,  module  #2  returns  a 
brief  summary  of  results.  These  include:  the  number  of  512-byte  records 
required  for  the  MAPS  stream;  the  distribution  of  'MAPSels'  by  size; 
optimal  bias  values  for  the  subsequent  pattern  decompression  (see  Section 
Six);  the  compression  level;  and  an  overall  fidelity  measure  in  the  form 
of  the  mean  square  error  (MSE)  in  percent. 
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The  protocol  for  DMA  PS  is  very  short: 

RUN  DRl ICSOf 273DN 

********************************************** 

*  t 

*  HAPS  DECOMPRESS I ON/RESOLUTION  IMAGE  MODULE  * 

*  * 
********************************************** 

NO  USER  INPUTS  REQUIRED 

MAPS  DECOMPRESSING  IMAGE  GIRL  ,  120  LINES  BY  128  PIXELS 

> 


The  protocols  for  the  two  subframe-to-raster  conversion  runs  are  also 
self-explanatory.  Note  that  RASTER  reports  both  the  user  image  name  and 
the  type  of  product  being  formed: 


RUN  DRl ! t50»  273RS 

********************************************* 
*  * 

*  HAPS  SUBFRAME  TO  RASTER  CONVERSION  MODULE  * 

*  * 
********************************************* 


MAPS  PRODUCT  IMAGE  TYPE! 

I  -  IMAGE  (ORIGINAL  SOURCE) 

D  -  DM APS  (MAPS  DECOMPRESSED) 

L  -  LEVEL  (MAPS  RESOLUTION  CODES) 
A  -  ADAPT  (ADAPTIVELY  SMOOTHED) 

E  -  ERROR  (DIFFERENCE) 

TYPE?  (I  D  L  A  E)  DCMAPS3 
I 


USER  SPECIFICATION  COMPLETE! 

**************************** 

REVIEW?  (Y  OR  N)  N 
N 

CONVERTING  IMAGE  GIRL  •  FILE  TYPE!  IMAGE 


TO  120  LINE  BY  128  PIXEL  RASTER*  FILE  TYPE!  IRAST 


RUN  DR1SC50»273RS 

********************************************* 
*  * 

*  HAPS  SUBFRAME  TO  RASTER  CONVERSION  NODULE  * 

*  * 
********************************************* 


HAPS  PRODUCT  IMAGE  TYPES 

I  -  IMAGE  (ORIGINAL  SOURCE) 

D  -  DM APS  (MAPS  DECOMPRESSED > 

L  -  LEVEL  (MAPS  RESOLUTION  CODES) 
A  -  ADAPT  (ADAPTIVELY  SMOOTHED) 

E  -  ERROR  (DIFFERENCE) 

TYPE?  (I  D  L  A  E>  DCMAPS3 
D 


USER  SPECIFICATION  COMPLETES 

**************************** 

REVIEW?  (Y  OR  N>  N 
N 

CONVERTING  IMAGE  GIRL  >  FILE  TYPES  DM APS 

TO  120  LINE  BY  128  PIXEL  RASTERi  FILE  TYPES  DRAST 

> 


Finally,  the  protocol  for  ANNOTE  image  assembly  follows: 


RUN  DRl SC50»273AI 

**************************************** 
*  * 

*  IMAGE  ASSEMBLY  AND  ANNOTATION  MODULE  * 

*  * 
**************************************** 


OUTPUT  IMAGE  SPECIFICATIONS 
OUTPUT  FILE  MODES 

R  -  GRAY  SCALE  RASTER  IMAGE  FILE  ’ANIMG.DAT* 

P  -  LINE  PRINTER  PSEUDO  IMAGE  FILE  *APRINT .DAT* 

MODE?  (R  P)  R 
P 

NUMBER  OF  LINES?  800  (/  -  NO  CHNG) 

241 

NUMBER  OF  PIXELS?  (UP  TO  128)  128  (/  *  NO  CHNG) 

/ 

COMPLEMENT  BACKGROUND?  (Y  OR  N)  N 


EMBEDDED  IMAGES 


NUMBER  OF  IMAGES?  (012)  0  (/  ■  NO  CHNG) 

2 

IMAGE  IS 

FILENAME?  (UP  TO  9  CHARACTERS)  F0R002 

IRA  ST 

SKIP  LINES  INTO  INPUT  IMAGE?  0  (/  -  NO  CHNG) 

/ 

SKIP  PIXELS  INTO  INPUT  IMAGE?  (<4000>  0  </  ■  NO  CHNG) 

/ 

NUMBER  OF  LINES?  (UP  TO  241)  241  (/  -  NO  CHNG) 

120 

NUMBER  OF  PIXELS?  (UP  TP  126)  128  (/  »  NO  CHNG) 

/ 

STARTING  LINE?  (RANGE  1  -  122)  1  (/  ■  NO  CHNG) 

/ 

STARTING  PIXEL?  (RANGE  1  -  1)  1  (/  -  NO  CHNG) 

/ 

COMPLEMENT  IMAGE?  (Y  OR  N)  N 
N 

IMAGE  2! 

FILENAME?  (UP  TO  9  CHARACTERS)  F0R003 

DRAST 

SKIP  LINES  INTO  INPUT  IMAGE?  0  (/  »  NO  CHNG) 

/ 

SKIP  PIXELS  INTO  INPUT  IMAGE?  (<4000>  O  (/  ■  NO  CHNG) 

/ 

NUMBER  OF  LINES?  (UP  TO  241)  241  (/  -  NO  CHNG) 

120 

NUMBER  OF  PIXELS?  (UP  TP  128)  128  (/  «  NO  CHNG) 

/ 

STARTING  LINET  (RANGE  1  -  122)  1  (/  «  NO  CHNG) 

122 

STARTING  PIXEL?  (RANGE  1  -  1)  1  (/  -  NO  CHNG) 

/ 

COMPLEMENT  IMAGE?  (Y  OR  N)  N 
N 


EMBEDDED  ANNOTATION! 

NUMBER  OF  MESSAGES?  (0-20)  0  (/  ■  NO  CHNG) 

/ 

USER  SPECIFICATION  COMPLETE! 

t«*******k»*«t**«t*****»«**» 

REVIEW?  (Y  OR  N>  N 
N 

ASSEMBLING  AND  ANNOTATING  IMAGE! 

241  LINES  BY  128  PIXELS  TO  FILE  ‘APRINT *DAT* 

> 


The  resulting  pseudo-image  Is  displayed  In  Figure  5-1 


SECTION  SIX 


HAPS  CONCEPTS  AND  mOCESSES 

This  section  provides  a  synopsis  of  the  key  MAPS  processes  and  concepts. 
More  detailed  discussions  can  be  found  in  the  references  listed  in 
Section  1.3 

6.1  Image  ftartitioning 

The  MAPS  partition  of  an  image  from  the  full  frame  down  to  the  level  of 
individual  pixels  is  a  two-stage  process.  First  the  frame  is  divided 
into  square  subframes,  all  of  the  same  size.  The  pixel  count  for  the 
subframe  edge  is  required  to  be  a  power  of  two.  Subframe  sizes  of  8x8 
pixels,  16x16  pixels,  or  32x32  pixels  are  allowed. 

The  subframes  tesselate  the  image  in  either  a  square  grid  or  a  grid  which 
is  'staggered*  in  one  direction  to  give  a  'brick  wall'  effect.  Stagger 
is  allowed  only  with  the  8x8  subframe  size  and  is  intended  to  break  up 
the  perceptible  'blockiness'  of  the  grid. 

Within  each  subframe,  the  Image  Is  further  divided  by  successive 
•quartering'.  This  results  In  a  series  of  nested  'quads',  each  quad 
having  an  edge  pixel  count  which  Is  a  power  of  two.  This  division 
continues  until  the  original  pixel  size  is  reached. 

MAPS  recodes  the  Image  from  many  simple  fixed-sized  pixels  into  a 
variable  resolution  pattern  based  on  the  image  content.  Each  MAPS 
element  or  'MAPSel'  coincides  with  one  of  the  natural  quad  units. 

MAPSels  can  range  In  size  from  original  pixels  up  to  entire  subframes. 

The  MAPSels  are  constrained,  however,  to  give  a  complete 
(non-overlapping)  tesselation  of  the  image. 


Thus,  the  MAPS  partition  processes  involve  a  'griddinq'  operation  to  form 
subframes,  and  a  'quadtree'  division  within  the  subframes.  These 
concepts  and  associated  labeling  conventions  are  summarized  in  Figure  6-1 

6.2  Sequence  Conventions 

MAPS  coding  involves  order  conventions  for  sequencing  the  subframes  and 
for  sequencing  elements  within  the  subframes  which  allows  element 
position  information  to  remain  implicit.  That  is,  the  element  position 
is  given  by  the  location  of  the  element  in  the  storage  sequence. 

Square  subframes  are  ordered  in  a  simple  coarse  raster  proceeding  through 
rows  of  subframes  in  the  'pixel'  direction  and  then  advancing  from  row  to 
row  in  the  'line'  direction.  Staggered  subframes  are  ordered  first  by 
their  startline  and  then  by  their  position  in  the  pixel  direction.  Thus, 
every  eighth  subframe  along  the  pixel  direction  is  given  in  sequence,  and 
the  startline  is  then  advanced  to  the  next  row  of  every  eighth  subframe 
(see  the  stagger  pattern  in  Figure  6-1). 

Within  each  subframe,  the  nested  quad  pattern  is  traced  from  the  lowest 
composite  index  to  the  highest.  This  results  in  the  'zig-zag'  pattern 
through  the  source  image  as  shown  in  the  upper  portion  of  Figure  6-2. 

This  zig-zag  pattern  is  also  applicable  to  a  valid  sequence  of  MAPSels  if 
the  subpatterns  within  each  larger  element  are  collapsed  to  a  point.  An 
example  of  the  resulting  MAPS  sequence  is  displayed  in  the  bottom  portion 
of  Figure  6-2. 

In  essence,  the  MAPS  order  convention  is  that  of  a  'sequential  quadtree'. 
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Figure  6-1.  MAPS  Image  Partition  Concepts 
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Figure  6-2.  MAPS  Sequence  Concepts 
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6.3  Micro-fidelity  Control 


Formation  of  MAPSels  larger  than  the  original  pixels  involves  successive 
evaluation  of  quad  'contrast';  testing  of  these  contrasts  against  control 
thresholds;  and  composition  of  a  quad  into  the  next  larger  single  element 
if  no  thresholds  are  exceeded.  For  each  'level*  in  the  nest  of  quads, 
four  contrasts  are  defined  among  the  quad  components  as  shown  in  the 
upper  portion  of  Figure  6-3.  A  separate  threshold  is  applied  against 
each  of  these  contrast  types.  This  allows  control  on  both  adjacent 
intensity  steps  among  the  four  elements  and  on  the  overall  intensity 
range  within  the  quad.  The  thresholds  depend  not  only  on  the  particular 
contrast  type,  but  also  on  the  level  (element  size)  of  the  quad.  This 
leads  to  a  matrix  of  contrast  control  thresholds  as  depicted  in  the  lower 
half  of  Figure  6-3. 

In  general,  the  threshold  should  be  smaller  for  the  'step'  contrasts  than 
for  the  'extreme'  contrast.  Moreover,  the  'middle'  step  threshold  may  be 
set  smaller  than  the  'outer'  steps  to  preserve  patterns  where  faint 
horizontal  or  vertical  edges  coincide  with  the  quad  centerlines. 

Finally,  the  thresholds  should  decrease  rapidly  with  increasing  element 
size  since  small  intensity  differences  are  much  more  noticeable  among 
larger  blocks.  These  observations  are  summarized  in  the  plot  given  as 
the  upper  portion  of  Figure  6-4. 

The  contrast  threshold  matrix  may  be  set  directly  by  selecting  each  of 
its  components.  However,  the  threshold  loci  suggested  in  Figure  6-4  can 
be  generated  from  a  smaller  set  of  parameters.  Specification  from  a 
four-parameter  set  is  illustrated  In  the  lower  part  of  Figure  6-4.  the 
first  parameter  is  an  overall  'contrast  scale'  which  is  the  'extreme' 
threshold  for  the  level  transition  from  1x1  to  2x2  elements.  The 
'recursive  taper  base'  provides  exponential  threshold  decay  with 
increasing  level.  The  'step  fraction'  specifies  the  'middle  step'  in 
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Figure  6-3.  MAPS  Contrast  Control 


RESOLUTION  ELEMENT  SIZE 


CONTRAST  THRESHOLD  LOCI 

Extreme  (L-~L+1)  *  Extreme  (L-1-*»L)  /  B 
Middle  (L-—  L+l)  =  F  *  Extreme  (L“»»L+1) 

Lower  (L-»-L+l)  *  (F  +A>  *  Extreme  (L-»L+1) 
Upper  (l-»* L+l)  »  (F  +A)  *  Extreme  (L-»L+1) 

WHERE  USER  INPUTS  SPECIFY: 

Extreme  (  0  -*1 )  -  Contrast  Scale 
B  -  Recursive  Taper  Base 
F  -  Step  Fraction 
A  -  Step  Bias 

PARAMETRIC  MATRIX  DEFINITION 


Figure  6-4.  MAPS  Threshold  Selection 


terms  of  the  'extreme'  threshold  at  a  given  level.  Finally,  the  'step 
bias'  makes  the  'outer'  step  thresholds  larger  than  that  for  the  'middle 
step'  at  the  same  level. 

Extensive  empirical  studies  have  shown  that  'universal'  values  can  be 
chosen  for  the  taper  base,  step  fraction,  and  step  bias  with  little  loss 
of  performance  over  a  wide  range  of  imagery.  These  values  are: 

Taper  Base,  B  3.0 

Step  Fraction,  F  0.5 

Step  Bias,  A  0.1. 

The  contrast  scale,  however,  is  strongly  dependent  on  image  content  and 
intensity  distribution.  Thus,  this  is  the  one  control  parameter  which 
must  be  chosen  in  the  'Quick'  mode  of  MAPS  option  selection. 

6.4  MAPSel  Coding 

MAPSels  are  increased  in  size  until  some  quad  threshold  is  exceeded,  or 
until  not  all  four  sub -components  of  the  quad  are  available  (due  to  a 
prior  threshold  violation).  The  resulting  sequence  of  MAPSels  must  then 
be  coded  in  such  a  way  that  the  image  scene  can  be  reconstructed. 

As  has  already  been  discussed,  position  information  remains  implicit  in 
the  MAPSel  stream.  However,  intensity  anbd  resolution  information  are 
given  explicitly.  For  8x8  subframes,  there  are  only  four  allowed  MAPSel 
levels  so  the  resolution  code  occupies  two  bits  per  MAPSel.  For 
compatibility  with  typical  machine  environments,  such  MAPSels  are  taken 
in  groups  of  four  and  the  four  two-bit  resolution  codes  are  packed  into  a 
single  byte.  This  is  then  followed  by  four  bytes  of  intensity 
information. 


For  16x16  and  32x32  subframes,  there  are  five  and  six  possible  states, 
respectively.  In  this  case,  the  MAP5els  are  taken  in  groups  of  three. 

The  16x16  subframe  case  requires  5x5x5  =  125  states  to  describe  the 
resolution  code  triplet.  The  32x32  case  requires  6x6x6  -  216  states. 

Both  of  these  fit  within  a  single  byte.  Indeed,  there  is  a  bit  'left 
over'  in  the  16x16  case  and  this  can  be  used  for  internal  parity  if 
desired.  Again,  the  resolution  code  byte  is  followed  by  the 
corresponding  intensity  bytes  (three). 

Two  forms  of  intensity  coding  are  used.  In  the  'block'  mode,  a  uniform 
intensity  over  the  entire  MAPSel  is  coded  as  an  eight-bit  byte.  In  the 
'pattern'  mode,  only  the  top  six  bits  of  each  byte  contain  direct 
intensity  information.  The  two  lowest-order  intensity  bits  are  replaced 
by  a  two-bit  pattern  which  reflects  one  of  four  generic  subpatterns  for 
the  quad.  The  relevant  subpattern  assignments  are  shown  in  Figure  6-5. 
The  pattern  bits  are  an  automatic  by-product  of  the  contrast  formation 
step  so  the  compression  computation  is  not  significantly  complicated  by 
this  process. 

On  decompression,  the  truncated  Intensity  values  are  modified  by  a 
pattern  of  bias  values  which  reflect  the  generic  patterns.  The  bias 
values  are  constant  over  the  image  but  vary  among  the  MAPSel  levels. 
Optimum  image-wide  biases  (in  a  mean  square  error  sense)  can  be 
determined  by  accumulating  simple  statistics  during  compression. 

The  pattern  mode  clearly  makes  no  sense  for  MAPSel s  at  level  zero  (lxl) 
since  no  pattern  Information  is  available.  Also,  the  pattern  mode  is  not 
very  effective  for  large  MAPSels  since  the  loss  due  to  intensity 
truncation  from  eight  to  six  bits  exceeds  the  size  of  the  optimal  biases 
in  most  cases.  For  middle-sized  MAPSels,  however,  the  Improvement  is 
dramatic.  Thus,  the  user  is  given  the  option  of  selecting  which  levels 
will  be  coded  in  the  'block'  mode  and  which  will  use  the  'pattern'  mode. 
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Figure  6-5.  MAPS  Pattern  Mode 


6.5  Adaptive  'Convolution' 


The  pattern  mode  makes  dranatic  improvements  in  MAPS  image  quality. 

Also,  the  use  of  subframe  stagger  tends  to  reduce  the  perception  of 
'blockiness'  in  the  reconstructed  imagery.  However,  such  'blockiness' 
can  be  masked  much  more  effectively  through  use  of  a  MAPS-based  adaptive 
smoothing  process.  Note  that  this  adaptive  'convolution'  can  be  used 
with  the  pattern  mode  but  is  inconsistent  with  subframe  stagger. 

The  adaptive  smoothing  is  based  on  the  following  general  observations. 
First,  the  size  of  a  MAPSel  is  a  rough  estimate  for  the  local 
'correlation'  length  in  the  image.  Thus,  a  local  'convolution'  window  of 
comparable  size  is  appropriate  for  image  smoothing.  Second,  the  makeup 
of  the  'surround'  of  the  MAPSel  to  be  smoothed  contains  useful  control 
information  for  the  convolution.  Surrounding  MAPSels  which  are  much 
smaller  than  the  target  MAPSel  give  a  priori  indication  of  localized 
image  activity  which  should  not  be  included  in  the  smoothing.  Thus, 
'surround'  elements  are  activated  only  if  they  are  no  more  than  one  level 
smaller  than  the  target  MAPSel.  Finally,  this  restriction  on  activation 
means  that  the  convolution  depends  on  only  sixteen  regions  -  four  in  the 
(patterned)  target  MAPSel  and  twelve  in  the  surround. 

The  geometry  and  numbering  conventions  for  the  adaptive  'convolution'  are 
shown  in  Figure  6-6.  The  dynamic  window  size  is  adjusted  to  be  one  pixel 
narrower  than  the  target  MAPSel  (to  make  it  symmetric  about  the  target 
pixel).  Thus,  any  target  pixel  smoothing  will  depend  on  at  most  nine 
different  local  and  surround  elements.  Moreover,  the  window  weights  can 
be  pre-summed  over  each  of  these  nine  regions  for  each  of  the  target 
pixel  locations.  The  convolution  then  becomes  a  table-driven  process 
involving  just  nine  regional  intensities,  nine  pre-summed  weights,  and 
nine  activation  flags  for  each  target  pixel. 
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Figure  6-6.  MAPS  Adaptive  'Convolution' 


SECTION  SEVEN 


MAPS  USER  OPTIONS 

In  this  section,  all  of  the  user  options  for  modules  #1  through  #6  are 
collected  and  tabulated.  Where  the  role  of  the  option  is  not  clear  from 
the  context,  a  brief  discussion  is  included.  The  first  level  of 
refinement  of  the  total  TransMAPS  option  space  is  reviewed  in  the 
following  tabulation: 

Option  Groupings: 

Raster  to  Suoframe  Conversion: 

Source  leage  Identification 
Source  lmaqe  Position  Specification 
Source  Image  Size  Specification 
Source  image  Partition  specification 

maps  Compression: 

User  Mode  Selection 
Macro-Fidelity  Control 
Micro-Fidelity  Control 
Grayscale  Manipulations 

maps  Decompression  and  Resolution  Image  Formation: 

(User  Transparent) 

MAPS  Adaptive  Image  Smoothing: 

Convolution  weighting  Specification 
Dltner  Amplitude  specification 

MAPS  Difference  Image  Formation: 

input  image  Pair  selection 
Difference  Image  control 

Subframe  to  Master  Conversion: 

Output  Product  Image  Type  Selection 

Image  Assembly  and  Annotation: 


Output  image  Specification 
Embedded  input  Image  Specifications 
Embedded  Annotation  Specifications 


7.1  Raster  to  Subframe  Conversion 


The  options  in  program  SUBFRM  are  as  follows: 

Source  Image  Identification: 

SOURCE  RASTER  FILENAME  (Up  to  9  characters) 

USER  IMAGE  NAME  (Up  to  8  characters) 

Source  Image  Fbsition  Specification: 

SKIP  LINES  (Default  0) 

SKIP  PIXELS  (Default  0) 

Source  Image  Size  Specification: 

LINES 

PIXELS  (Skip  pixels  +  Retained  Pixels  <4001) 

BITS/PIXEL  (6  or  8,  Default  *  8  ) 

Source  Image  ftrtltion  Specification: 

SUBFRAME  EDGE  (  8,  16,  or  32,  Default  *  8  ) 

SUBFRAME  GRID  (  Square  or  Stagger,  Default  =  Square  ) 

Constraints:  Stagger  with  8x8  only. 

Stagger  incompatible  with  Adaptive 
Smoothl ng. 

7.2  MAPS  Compression 

The  MAPS  Compression  module  has  a  particularly  extensive  option  space. 

It  is  subdivided  into  three  option  classes  -  macro-fidelity  control, 
micro-fidelity  control,  and  gray-scale  manipulations.  The  entire 
interaction  is  preceded  by  a  'user  mode  selection'  which  determines  the 
overall  interaction  strategy. 


Because  of  the  complexity  of  the  MAPS  compression  interaction,  a  separate 
'road  map'  of  the  decision  hierarchy  has  been  included  here  as 
Figure  7-1.  This  presentation  shows  both  the  forward  penetration  of  the 
hierarchy  and  the  structure  of  return  paths  when  local  'editing'  modes 
are  invoked. 

7.2.1  User  Interaction  Mode 

Three  interaction  strategies  are  available  in  the  MAPS  module  -  the 
'Quick'  mode,  the  'User'  mode,  and  the  'Full'  mode.  In  the  'Quick'  mode, 
only  the  overall  image  'contrast  scale'  need  be  selected.  This  is  the 
normal  application  of  TransMAPS  as  a  'black  box'  image  coding  system. 

The  'User'  mode  allows  input  of  a  set  of  user  options  defined  on  a 
previous  interactive  session  with  the  MAPS  module.  The  parameter  set  is 
stored  on  file  MSET.OAT  and  overrides  the  default  settings  if  this  mode 
is  selected.  Note  that  the  user  can  establish  a  new  version  of  MSET.DAT 
for  future  use  as  the  last  interaction  in  the  current  run. 

The  'Full'  mode  allows  complete  hierarchical  penetration  of  the  MAPS 
option  space  under  user  control  (see  Figure  7-1).  Also,  a  decision  to 
'Review  the  Complete  Specification'  automatically  returns  the  interaction 
to  the  beginning  of  the  'Full'  mode  sequence.  Thus,  the  user  can  invoke 
a  previous  set-up  with  the  'User'  mode  and  then  edit  this  further  with  a 
'Review'  selection.  This  is  helpful,  for  example,  where  a  complex 
macro-fidelity  partition  is  to  be  held  fixed  as  a  various  micro-control 
strategies  are  explored. 
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Figure  7-1.  MAPS  Compression  Options  Overview 
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7.2.2.  Macro-Fidelity  Control 


Different  micro-control  strategies  can  be  applied  in  different  parts  of 
the  scene  by  establishing  an  appropriate  macro-fidelity  image  partitidn. 
This  involves  specifying  a  16x16  matrix  which  divides  the  source  frame 
into  256  equal-area  but  distinct  rectangular  subpatches.  The 
micro-fidelity  control  for  each  patch  may  be  selected  from  any  of  up  to 
four  control  parameter  groups.  Thus,  the  matrix  component  corresponding 
to  each  patch  is  assigned  one  of  the  digits  from  1  to  4. 

The  normal  default  is  to  assign  all  patches  to  Group  1.  However,  the 
macro-fidelity  image  partition  matrix  can  be  changed  on  a  row  by  row 
basis.  Each  row  (16-element  vector)  update  is  followed  immediately  by 
display  of  the  revised  matrix.  Thus,  the  patches  can  be  reassigned  until 
a  satisfactory  pattern  for  the  scene  content  has  been  achieved. 

Once  the  user  has  signalled  an  end  to  the  macro-fidelity  editing  process, 
the  matrix  is  scanned  and  all  active  groups  (any  subset  of  the  numbers 
{l,2,3,4})  are  noted.  The  interaction  then  automatically  queries  the 
user  to  set  just  those  corresponding  micro-fidelity  controls. 

7.2.3  Micro- Fidelity  Control 

For  each  active  control  group  (up  to  four)  there  are  three  modes  of 
control  matrix  specification  available.  The  user  may  choose  to  specify 
only  the  'contrast  scale'  for  the  group  and  leave  the  other  parameters 
unchanged.  Or,  the  user  may  elect  the  'parametric'  mode  to  change  any 
among  the  'contrast  scale',  'taper  base',  'step  fraction',  or  'step  bias' 
for  the  group.  A  new  matrix  is  then  generated  and  displayed  along  with 
the  parameter  set. 


Finally,  the  user  may  choose  to  edit  the  matrix  components  directly  and 
by-pass  the  parametric  generation.  This  approach  is  particularly 
appropriate  where  'forced  compositing*  or  'forced  resolution  retention' 
is  desired.  Contrast  thresholds  which  exceed  the  dynamic  range  of  the 
possible  contrast  values  will  insure  forced  compositing;  threshold  values 
of  255  will  work  for  8-bit  data.  On  the  other  hand,  negative  contrast 
thresholds  will  insure  forced  resolution  retention.  Examples  are  given 
in  Sections  Eight  and  Nine  below. 

The  micro-fidelity  control  interaction  also  allows  selection  of  the 
'block'  and  'pattern'  mode  assignments  by  MAP5e1  level.  The  choice  is 
made  by  specifying  an  alphabetic  string  of  B's  and  P's;  the  level 
association  proceeds  from  left  to  right.  Thus,  BPF6BB  would  specify  the 
'pattern'  mode  for  2x2  and  4x4  HAPSels  with  the  'block'  mode  for  the 
other  levels.  This  particular  'block/pattern'  vector  is,  in  fact,  the 
normal  default  selection. 

7.2.4  Gray-Scale  Manipulations 

The  options  described  in  this  section  have  the  effect  of  allowing  MAPS 
control  to  vary  as  a  function  of  the  image  Intensity.  This  is  achieved 
in  three  ways  -  by  contrast-space  remapping,  by  intensity-space 
remapping,  and  by  alternative  intensity  reset  strategies. 

The  effect  of  a  contrast  threshold  which  varies  with  image  intensity  can 
be  achieved  by  keeping  a  fixed  threshold  but  using  a  non-linear  mapping 
of  the  image  data  from  code  space  (8  bits)  to  a  new  contrast  space. 
Furthermore,  if  the  constrast  space  Is  coded  using  more  than  eight  bits, 
distinctness  among  the  original  levels  can  be  preserved  even  though  their 
relative  spacing  is  changed.  This  capability  is  implemented  in  the  MAP5 
module  by  allowing  the  user  to  specify  a  piecewise- 11 near  mapping  from 
8-bit  code  space  to  12-bit  contrast  space.  The  mapping  can  have  up  to 


eight  segments,  continuous  at  segment  boundaries  but  with  a  different 
slope  for  each  segment. 

The  user  specifies  the  mapping  by  responding  with  successive  breakpoint 
coordinate  pairs.  That  is,  a  segment  end  from  code  space  and  the 
corresponding  point  in  contrast  space  are  entered  together  as  a 
two-element  vector.  The  entry  starts  at  the  (0,0)  point  and  proceeds 
monotonically  until  the  last  entered  pair  exhausts  code  space  (255, 

<  4096).  This  approach  allows  the  user  to  differentially  retain  certain 
features,  such  as  radar  strong  returns,  in  very  high  fidelity  while 
smoothing  and  compressing  data  from  other  portions  of  the  gray-scale 
range. 

A  similar  mapping  from  8-bit  code  space  to  12-bit  Intensity  space  allows 
non-linear  formation  of  MAPSel  intensities.  This  is  appropriate,  for 
example,  if  the  image  8-bit  code  space  represents  a  logarithmic  encoding 
of  the  intensities.  In  this  case,  simple  averaging  of  the  code  values  in 
a  quad  is  equivalent  to  taking  the  'geometric'  mean  of  the  original 
signals  rather  than  the  'arithmetic'  mean.  This  would  imply  significant 
and  systematic  distortion  of  the  radiometric  information  in  the  image. 

Again,  the  MAPS  module  allows  a  piecewise -linear  mapping  from  code  space 
to  Intensity  space;  up  to  eight  segments  are  also  permitted  here.  This 
mapping  could  be  used  to  approximate  the  transformation  from  code  space 
back  to  the  original  intensity  domain.  Note  that  the  module 
automatically  forms  the  Inverse  demapping  from  intensity  to  code  space  in 
order  to  restore  the  final  MAPSels  to  the  proper  range. 

User  specification  of  the  Intensity  remapping  proceeds  in  exactly  the 
same  manner  as  that  for  the  contrast  remapping.  In  both  cases,  the  user 
must  determine  the  basis  to  be  used  for  the  remappings  before  undertaking 
the  interaction. 


The  final  gray-scale  manipulation  option  Involves  the  selection  of  an 
Intensity  reset  strategy.  Here,  the  user  is  given  six  choices  for  the 
manner  in  which  the  quad  is  to  be  composited  from  its  components.  These 
choices  are  as  follows: 

•  Mean  of  the  four  quad  components; 

•  feeudo-median  of  the  quad  (mean  of  the  two  middle 

elements): 

t  Lowest  intensity  in  the  quad; 

•  Second-lowest  intensity  in  the  quad; 
e  Third-lowest  intensity  in  the  quad; 

•  Highest  intensity  in  the  quad. 

This  choice  may  be  used  to  avoid  local  drop-outs,  isolated  saturated 
points,  or  noise  pulses  of  either  sense.  It  is  expected  that  this 
facility  will  be  used  only  in  very  special  image-dependent 
circumstances.  The  default  selection  is  the  simple  mean  which  is  the 
choice  which  minimizes  the  mean  square  error. 

7.3  MAPS  Decompression  and  Resolution  Image  Formation 

As  discussed  in  Section  Five,  this  module  proceeds  automatically  once  it 
is  Invoked.  However,  two  MAPS  products  are  generated  which  may  require 
some  interpretation.  The  first  is  the  DMAPS.DAT  file  which  is  the  MAPS 
decompressed  tonal  image  In  subframe  form.  The  only  special  feature  here 
is  that  the  optimal  pattern  biases  are  automatically  applied  to  all 
levels  for  which  the  'pattern'  mode  was  selected.  The  bias  information 
is  transmitted  as  part  of  the  standard  MAPS  file  header. 

The  second  product  is  the  MAPS  'resolution'  or  'level'  image  in  file 
LEVEL.DAT.  This  is  an  'image*  formed  by  placing  the  host  MAPSel 
resolution  code  in  the  upper  three  bits  of  each  pixel.  For  'pattern' 
mode  MAPSel s,  the  two  pattern  code  bits  are  also  Included,  shifted  in  two 
bits  from  the  right  edge  of  the  byte.  This  product,  then,  gives  a  visual 
display  of  the  MAPS  resolution  coding  and  is  useful  in  understanding  both 


the  MAPS  process  and  the  structure  of  a  particular  scene.  Examples  of 
the  MAPS  level  image  are  given  in  Sections  Eight  and  Nine. 

7.4  MAPS  Adaptive  Smoothing 

Two  option  selections  are  required  in  the  ADAPT  module.  They  are: 

Convolution  Weighting: 

UNIFORM  or  GAUSSIAN  (Default  Gaussian) 

SIGMA  AT  WINDOW  CORNER  (Gaussian  only.  Default  2.0) 

Dither  Selection: 

DITHER  AMPLITUDE  (Default  4.0) 

A  small  dither  may  be  added  in  the  adaptive  smoothing  process  to  mask  any 
residual  contouring.  The  amplitude  is  in  gray  levels  relative  to  the 
eight-bit  code  scale.  The  random  variable  is  drawn  from  the  system's 
pseudo-random  number  generator. 

7.5  MAPS  Difference  Image  Formation 

Three  option  selections  are  required  in  the  DIFFER  module.  They  are: 

First  Image  of  Difference  fair: 

IMAGE.DAT  (source)  or  DMA  PS . DAT  (MAPS  decompressed) 

Second  Image  of  Difference  fair: 

DMAPS.DAT  or  ADAPT.DAT  (MAPS  smoothed) 

Difference  Image  Control : 

AMPLIFICATION  FACTOR  (Default  10.0) 


If  DMAPS.DAT  is  chosen  as  the  first  image,  the  second  automatically 
defaults  to  ADAPT.DAT.  Thus,  any  of  the  three  pairs  -  IMAGE-DMAP5, 
IMAGE-ADAPT,  or  DMAPS-ADAFT  -  can  be  formed. 

The  value  of  the  amplification  factor  controls  the  type  of  difference 
image  formed.  A  negative  value  results  in  a  'signed'  difference  with  a 
neutral  gray  bias  at  gray  value  127.  A  positive  value  results  in  an 
'absolute'  difference,  amplified  by  the  selected  factor.  A  zero  value 
results  in  the  production  of  the  fidelity  statistics  only,  with  no  image 
file  formed.  The  fidelity  statistics  are  output  to  the  printer  listing 
file,  EPRINT.DAT. 

7.6  Subframe  to  Raster  Conversion 

The  only  option  selection  required  in  the  RASTER  module  is  selection  of 
the  desired  product  type.  The  range  of  possibilities  is: 


IMAGE.DAT 

to 

IRAST.DAT 

Source  image 

DMAP5.DAT 

to 

DRAST.DAT 

MAPS  decompression 

LEVEL.DAT 

to 

LRAST.DAT 

MAPS  resolution 

ADAPT.DAT 

to 

ARAST.DAT 

Adaptively  smoothed 

ERR0R.DAT 

to 

ERAST.DAT 

MAPS  difference 

The  remaining  two  sections  provide  several  examples  of  TransMAPS 
interactive  protocols  and  sample  results. 
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SECTION  EIGHT 

MAPS  COMPRESSION:  EXTENDED  USE 

This  section  presents  examples  of  TransMAPS  application  with  emphasis  on 
MAPS  compression  options. 

8.1  MAPS  Compression  Planning  Form 

Figure  8-1  presents  a  reduced  photocopy  of  the  MAPS  Planning  Form  for  the 
compression-phase  tasks.  The  planning  form  summarizes  the  user  option 
space  for  modules  #1  (SUBFRM)  and  #2  (MAPS). 

Note  that  the  relevant  file  set  for  each  module  Is  shown.  In  addition, 
the  three  major  option  subgroups  for  the  MAPS  module  -  macro-fidelity 
control,  micro-fidelity  control,  and  gray-scale  manipulations  -  are 
clearly  distinguished.  Finally,  formal  space  Is  provided  at  the  bottom 
of  the  form  to  record  the  output  summary  for  the  resultant  MAPS  run. 

8.2  TransMAPS  Compression  Diagnostic  Test  Image 

A  special  'toy' -sized  diagnostic  image  was  developed  as  part  of  TransMAPS 
to  test  several  aspects  of  the  MAPS  compression  logic.  This  Image  Is 
displayed  In  Figure  8-2  with  an  overlay  of  grid  lines  to  show  'natural' 
MAPS  boundaries  relative  to  the  various  patterns.  Four  similar  patterns 
are  seen  which  differ  only  In  scale.  These  structures  contain  generic 
quad  geometries  for  MAPSels  of  sizes  1x1,  2x2,  4x4,  and  8x8.  In 
addition,  one  quarter  of  the  structure  for  16x16  MAPSels  and  single 
MAPSels  of  size  32x32  are  represented. 

For  each  of  the  four  smallest  MAPSel  sizes,  all  possible  generic  quad 
patterns  of  the  following  types  are  Included  In  the  twelve  quads  of  the 


» 


ft 

t 


ft  J 


ft 


11-60 


HAPS  Planning  Form  (allowed  danse )  [default]  Date 
(compression) 

ROOULE  USER  1HPUTS 


in  -  User  Raster 
out  -  1HAGE.DAT 


SOURCE  IMAGE  FILE  NAME  ( _ ) 

USER  IMAGE  NAME  ( _ _ ) 

SKIP  LINES  [Oj _  SKIP  PIXELS  [o] _ 

PROCESS  LINES!  ] _ PROCESS  pixels!  3 _ 

BITS/PIXEL  (  S  S  )  f*I 

SUBFRAME  SIZE  (  B  IS  12  )  (8]  SUBFRAME  «RID  (SOUARE  STAGGER)  [SOUARE] 

BIS  ONLY 


mode  (Quick  User  Pull)  IQ] 
Macro  fidelity  control;  r~r 

IMAGE  PARTITION:  f~T 


PIXEL  INDEX  DIRECTION 


1 N/ OUT  •  HSET.DAT  LINE  index  DIRECTION  J 

USER  parameters 

EACH  CELL  (1  z  1  «)  [ALL  l] 


Micro  fidelity  control: 


PARAMETERS  GROUP  1 

CONTRAST  SCALE 

group  2 

GROUP  3 

6R0UP  0 

TAPER  I3."3] 

pro] 

13*31 

[j.TSJ - 

STEP  FRACTION  lO.?| 

STEP  BIAS  [<M] 

'matrix  E  H  L  U 

0-1 

io.  n 

prs] — 

E  H  L  U 

[0.1]  " 

P>-T3 - 

E  H  l  U 

fP  '5]  '  ' 

fr-T  . . 

E  H  L  u 

1-2 

2-3 

3-<l 

<1-5 

BLOCK/PATTERN  ASSIGNMENT.  EACH  LEVEL  (B  P)  [BPPBBB] 

012  34  5  LEVEL 


files: 

in  -  IHASE.DAT 


out  -  HAPS.DAT 


Gray-scale  manipulations: 

CONTRAST  REMAP:  CODE 


PIECEWISE 
LINEAR 
BREAKPOINT 
PAIRS 

(NON-DECREASING) 


CODE  (0-2S5) 
CONTRAST  (0.40BS)* 


CONTRAST 


»» 


INTENSITY  REMAP:  CODE  INTENSITY 

0  _ 0 

[»s] 


CODE  (0-tSS) 
INTENSITY  (O-ROfS)' 


INTENSITY  RESET: 

(mean) 

(pseudo-median) 

(LOWEST) 

(second) 

(THIRD) 

(HIGHEST) 

N*"] 


BESULTS:  Compression: 


Level:  0  1  2  J  «  5 


Mean  Square  Error: _ X  HAPSels: 


Optimal  Biases: 


Figure  8-1.  MAPS  Compression  Planning  Form 


basic  structure: 

§  one  dark  MAPSel  and  three  light  MAPSels, 

•  two  adjacent  dark  MAPSels  and  two  adjacent  light  MAPSels,  and 

•  three  dark  MAPSels  and  one  light  MAPSel. 

At  least  one  pattern  of  each  of  these  types  is  also  included  for  the 

16x16  MAPSel  size.  Finally,  the  full  frame  contains  examples  of  quads 

with  four  light  MAPSels  and  others  with  four  dark  MAPSels  for  all  five 
sizes  -  1x1,  2x2,  4x4,  8x8,  and  16x16. 

This  diagnostic  image  can  then  be  used  to  implement  all  of  the  following 
compression-logic  tests: 

Compression-Logic  Diagnostic  Tests: 


Image  Partition  and  Macro-Fidelity  Control: 


Input  Image  Line  and  Pixel  Skips 
Subframe  Phasing  (Square  and  staggered) 
Macro-Partition  Group  Assignment 

Micro-Fidelity  control: 

Zigzag  sequencing 

Contrast  Control  as  a  Function  of  Transition  Level 
Contrast  Control  as  a  Function  of  Contrast  Type 
Pattern  Code  Assignment 

Gray-Scale  Manipulation: 


Contrast  Space  Quad  Sort 
Intensity  Space  Quad  Sort 
Intensity  Reset  Assignment 


The  diagnostic  image  is  sufficiently  small  and  regular  so  that  the 
effects  of  input  line  and  pixel  skips  can  be  predicted  and  verified 
directly.  In  addition,  the  effects  of  subframe  phasing  relative  to  the 
image  structures  and  the  natural  MAPS  boundaries  can  be  varied  by 
controlled  line  and  pixel  skips.  These  effects  can  also  be  predicted  for 
both  square  and  staggered  subframes  and  can  be  verified  very  simply  by 
displaying  the  MAPS  resolution  image. 
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Correct  performance  of  the  macro-fidelity  image  partition  and 
corresponding  control  group  assignment  can  also  be  established  with  this 
image.  In  this  case,  if  only  the  first  128  lines  of  the  160  line  by  128 
pixel  image  are  used,  the  macro-fidelity  partition  will  divide  the  image 
into  a  16x16  pattern  of  8x8  pixel  patches.  Each  of  the  complete  scene 
structures  can  then  be  assigned  to  a  different  control  group  and  treated 
with  different  micro-control  strategies.  Again,  the  results  can  be 
simply  predicted  and  verified  using  the  MAPS  decompression  and  resolution 
image  products. 

Verification  of  the  zig-zag  sequencing  is  implicit  in  successful 
reconstruction  of  the  varying  MAPSel  sizes  following  'perfect  fidelity' 
coding  using  zero  contrast  thresholds.  Verification  of  contrast  control 
as  a  function  of  transition  level  and  contrast  type  is  also  possible 
using  combinations  of  threshold  which  should  yield  varying  'forced 
composition'  and  'forced  resolution  retention'.  Finally,  correct 
'pattern  code'  assignments  can  be  verified  from  the  various  'two  adjacent 
dark/two  adjacent  light'  configurations  which  exhaust  the  generic 
'pattern  mode'  geometries. 

Selective  combinations  of  thresholds  to  give  controlled  'forced 
composition'  plus  'forced  resolution  retention'  can  also  be  used  to 
verify  the  quad  sort  results  in  both  contrast  and  intensity  space.  The 
nearly  exhaustive  generic  quad  configurations  also  provide  the  vehicle 
for  verifying  the  various  intensity  reset  assignments. 

Examples  of  several  of  these  compression  option  explorations  are 
contained  In  the  protocol  presented  In  the  next  subsection. 

8.3  User  Interaction  ffotocol  ('User'  and  'Full'  Modes) 

A  completed  MAPS-compresslon  planning  form  for  the  example  in  this 
section  is  presented  in  Figure  8-3.  The  SUBFRM  portion  of  the  form 


ULE 

jyjFm  / 
nut  i 

in  -  Use*  Raster 
out  •  IMGE.MT 


APS  Pi. ANNINA  TO 
(COMPRESSION) 


(allowed  ransc)  [default]  Date  SS. C±Ji 

USER  INPUTS 


SOURCE  IHASE  RILE  NAME  (tf  X  £  S.  Z* _ ) 

USER  I MARE  NAME  (4f  X  £  S.  Z JL  fi-> 

SKIP  LIMES  M  0  KIP  P HEELS  ToT  0 

process  Li»»f*aaT  /98  process  pixeliIbra-t  IS8 
i its/pixel  {  I®)  [s]  _ 

SUBFRAME  SIZE  (  l(T»)l2  )  |t]  SUBFRAME  RRID  (yUARpSTAKEl)  [SSUAAE] 
V  BIS  ONLY 


□■■■■■■■■■■■■■■□I 

GBBBBBBBBBBBBBBQl 

gbbbbbbbbbbbbbbgI 

gbbbbbbbbbbbbbbgI 

cbbbbbbbbbbbbbbgI 

[□■■■■■■■■■■■■■■□I 

IgbbbbbbbbbbbbbbciI 

InCCCCClPClCCCCCCHGl 

|ciGDUcnf-iGQnnnMEJfin| 

bcDnnDQnaoQiiiim 

|GGrCGnGGCCBBBBBa| 

InncncuccGCBnFTRnQl 


PARAMETERS  CROUP  i 

CONTRAST  bcau 

taper 

p.ol 

STEP  FRACTION 

*»ns - 

STEP  BIAS 

pi] 

MATRIX  E 

PI  L  U 

o-i  ass  o _ o  ass 

EACH  level  (b  p)  [BPPBSR] 

HUM  LEVEL 


CONTRAST  REMAP;  CODE  CONTRAST  INTENSITY  REMAP;  COM  INTENSITY 

&*5±>a=Z  &»3H  fEZ 

BREAKPOINT  _  _ 

PAIRS  -  - 

(non-mcreasino)  ~ -  ■ 


(mean) 

(tPSEUDO -MEDIAN 

(lonest) 

(second) 

(third) 

(nishett) 


RESULTS;  Compression:  JL 


Mean  Square  fn imrS.SaM-1 


WPSels;  39  990 

Optimal  Biues:  ’ 


5?  36 


Figure  8-3.  Planning  Form  for  MTEST  Example 
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reflects  the  usage  of  the  diagnostic  image,  MTEST.DAT.  It  also  indicates 
that  only  the  first  128  lines  (of  160)  are  to  be  used  here.  The  image  is 
to  be  partitioned  into  a  square  grid  of  16x16  pixel  subframes. 

The  MAPS  portion  of  the  planning  form  exhibits  an  extensive 
macro-fidelity-control  image  partition.  The  'scene*  has  been  segmented 
into  four  regions,  each  containing  one  of  the  full  MAPS  test  structures. 
Group  1  is  assigned  to  the  patches  covering  the  Ixl-MAPSel  structure; 
group  2  to  the  2x2-MAP5el  structure;  group  3  to  the  4x4-MAPSel  structure; 
and  the  remainder  of  the  frame  to  group  4.  This  last  group  contains  the 
entire  8x8  MAPSel  test  structure  as  well  as  isolated  16x16  and  32x32 
MAPSels  (see  Figure  8-2). 

This  macro-fidelity  partition  allows  different  micro-control  strategies 
to  be  applied  to  each  of  the  full  test  structures.  Direct  specification 
of  the  contrast  control  matrix  is  used  in  each  case.  For  group  1  (and 
the  lxl -MAPSel  structure),  two  thresholds  -  the  'extreme*  and  'upper 
step'  for  the  level  0-1  transition  -  are  set  to  the  'forced  compositing' 
value,  255.  All  other  group  1  thresholds  are  set  to  the  'perfect 
fidelity'  value,  0.  The  effect  of  this  specification  should  be  to 
combine  quads  of  lxl  MAPSels  which  contain  'one  dark  and  three  light' 
components,  and  to  leave  the  other  quad  types  in  the  lxl -MAPSel  structure 
unchanged. 

The  contrast  threshold  matrix  for  group  2  (and  the  2x2-MAPSel  structure) 
is  set  to  the  'perfect  fidelity'  condition  except  for  the  level  1-2 
transition.  This  second  row  is  set  to  the  'forced  resolution  retention' 
value,  -1,  for  all  four  thresholds.  Actually,  any  one  of  the  thresholds 
set  negative  is  sufficient.  This  means  that  the  region  controlled  by 
group  2  will  be  coded  by  MAPSels  no  larger  than  2x2,  independent  of  the 
local  scene  content. 
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The  contrast  control  matrix  for  group  3  (and  the  4x4-MAP5el  structure)  Is 
set  with  the  'perfect  fidelity'  condition  In  rows  1,  2,  and  4.  Row  3, 
corresponding  to  the  level  2-3  transition,  is  set  to  the  'forced 
compositing'  value,  255,  in  all  four  thresholds.  The  effect  of  this 
should  be  to  composite  all  quads  in  the  4x4-MAP5el  structure  (level  2), 
to  8x8  MAP5els  (level  3). 

Finally,  the  remainder  of  the  image,  control  group  4,  is  set  completely 
to  the  'perfect  fidelity'  value,  0.  Thus,  each  element  in  region  4 
should  grow  to  its  'natural'  MAPSel  size. 

Note  that  the  'block'  mode  is  to  be  selected  for  all  levels  in  this 
example. 

Both  the  'contrast  remap'  and  'intensity  remap'  are  to  be  left  in  their 
default  form  -  the  identity  mapping.  However,  'pseudo-median'  intensity 
reset  is  to  be  selected. 

The  results  from  the  actual  MAPS  module  run  using  these  settings  are 
entered  at  the  bottom  of  the  form,  fhotocopy  reproductions  of  the  actual 
interactive  protocols  from  the  resultant  DEC-writer  listings  are 
displayed  below. 

The  protocol  for  SUBFRM  is  as  follows: 

RUN  DR1 t CS0.273SF 


HAPS  RASTER  TO  SUBFRAME  CONVERSION  NODULE 


SOURCE  IDENTIFICATION! 

SOURCE  RASTER  FILENAHET  (UP  TO  9  CHARACTERS)  F0R002 
HTEST 

USER  IMAGE  MAMET  (UP  TO  8  CHARACTERS) 

HTEST  16 


SOURCE  IMAGE  POSITION! 

NUMBER  OF  LINES  TO  SKIPT  0  (/  -  NO  CHNG) 

/ 

NUMBER  OF  PIXELS  TO  SKIPT  (<  4000)  0  </  ■  NO  CHNG) 

/ 

SOURCE  IMAGE  SIZE! 

NUMBER  OF  LINES  TO  PROCESS?  480  (/  -  NO  CHNG) 

128 

NUMBER  OF  PIXELS  TO  PROCESS?  <UP  TO  4000)  624  (/  -  NO  CHNG) 

128 

NUMBER  OF  BITS/PIXEL?  <6  8)  8  (/  -  NO  CHNG) 

/ 

SOURCE  IMAGE  PARTITION! 

SUBFRAME  EDGE?  (8  16  32)  8  </  ■  NO  CHNG) 

16 


USER  SPECIFICATION  COMPLETE! 

**************************** 

REVIEW?  <Y  OR  N)  N 
N 

CONVERTING  IMAGE  MTEST  16  TO  64  SUBFRAMES 

> 


The  protocol  for  MAPS  is  presented  next.  Actually,  the  macro-fidelity 
image  partition  matrix  had  been  established  on  a  previous  run  and  saved 
on  file  MSET.DAT.  (This  sample  file  is  also  provided  as  part  of  the 
TransMAPS  tape.)  Thus,  the  'User'  mode  was  chosen  to  re-enter  this  data, 
and  a  ' Y *  (yes)  response  to  the  'REVIEW  ?"  query  was  used  to  transfer 
back  to  the  'Full'  mode  for  further  editing.  The  MAPS  protocol  follows: 


RUN  DRl • C50*273MP 

*************************** 

*  * 

*  MAPS  COMPRESSION  MODULE  * 

*  * 

****$***»»**»***«»***»«**•* 

USER  OPTION  MODES! 

Q  -  QUICK  MODE  (SELECT  CONTRAST  SCALE  ONLY) 

U  -  USER  PRE-DEFINED  PARAMETERS  FROM  FILE  MSET.DAT 
F  -  FULL  OPTION  REVIEW  AND  SELECTIVE  REVISION 

MODE?  (0  U  F>  0 


USER  SPECIFICATION  COMPLETE! 

******»«****$*************** 

REVIEW?  <Y  OR  N>  N 
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I 


§  1 


r 


i 


i 


> 


» 


§ 


MACRO-FIDELITY  CONTROL!  REVIEU/REVISE?  (Y  OR  M)  N 
Y 

CURRENT  IMAGE  PARTITION 


44444444444444  ROU  1 

44444444444444  ROU  2 

44444444444444  ROU  3 

44444444444444  ROU  4 

44444444444444  ROU  S 

44444444444444  ROU  6 

44444444444444  ROU  7 

44444444444444  ROU  8 

44444444444444  ROU  9 

44444444444444  ROU  10 

11112222333333  ROU  11 

11112222333333  ROU  12 

11112222333333  ROU  13 

11112222333333  ROU  14 

44444444333333  ROU  IS 

44444444333333  ROU  16 


ROU  TO  CHANGE?  <1-16)  </  *  NO  FURTHER  CHNG) 

/ 


MICRO-FIDELITY  CONTROLS  REVIEU/REVISE?  (Y  OR  N)  N 
Y 

GROUP  1  CONTRAST  THRESHOLD  MATRIX 
E  M  L  U 

0-1  0  0  0  0  ROU  1 

1- 2  0  0  0  0  ROU  2 

2- 3  0  0  0  0  ROU  3 

3- 4  0  0  0  0  ROU  4 


SPECIFICATION  MODES! 

N  -  NO  CHANGE 
8  -  SCALE  ONLY 
P  -  PARAMETRIC 
H  -  MATRIX 

REVISE  SPECIFICATIONS?  <N  S  P  M>  N 
H 

MATRIX  ROU  TO  CHANGE?  <l-4>  </  -  NO  FURTHER  CHNG) 

1 

REVISE  GROUP  1/LEVEL  0-1? 

E  M  L  U 

0  0  0  0  </  ■  NO  CHNG) 

25S  0  0  255 

GROUP  1  CONTRAST  THRESHOLD  MATRIX 
E  M  L  U 

0-1  255  0  0  255  ROU  1 

1- 2  0  0  0  0  ROU  2 

2- 3  0  0  0  0  ROU  3 

3- 4  0  0  0  0  ROU  4 


MATRIX  ROU  TO  CHANGE?  <l-4)  </  -  NO  FURTHER  CHNG) 

/ 
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GROUP  2  CONTRAST  THRESHOLD  MATRIX 


0-1 

1-2 

2- 3 

3- 4 


E 

0 

0 

0 

0 


H 

0 

0 

0 

0 


L  U 
0  0 
0  0 
0  0 
0  0 


ROU  1 
ROW  2 
ROU  3 
ROU  4 


SPECIFICATION  MODES! 

N  -  NO  CHANGE 
S  -  SCALE  ONLY 
P  -  PARAMETRIC 
M  -  MATRIX 

REVISE  SPECIFICATIONS?  <N  S  P  M>  N 


MATRIX  ROU  TO  CHANGE?  <l-4> 


(/  -  NO  FURTHER  CHNG) 


REVISE  GROUP  2/LEVEL  1-2? 


E 

0 

4*-l 


M 

0 


L 

0 


U 

0 


(/  -  NO  CHNG) 


GROUP  2  CONTRAST  THRESHOLD  MATRIX 


0-1 

1-2 

2- 3 

3- 4 


E 

0 

-1 

0 

0 


M 

0 

-1 

0 

0 


L 

0 

-1 

0 

0 


u 

0 

-1 

0 

0 


ROU  1 
ROU  2 
ROU  3 
ROU  4 


MATRIX  ROU  TO  CHANGE?  (1-4) 


(/  ■  NO  FURTHER  CHNG) 


GROUP  3  CONTRAST  THRESHOLD  MATRIX 


0-1 

1-2 

2- 3 

3- 4 


E 

0 

0 

0 

0 


M 

0 

0 

0 

0 


L 

0 

0 

0 

0 


u 

0 

0 

0 

0 


ROU  1 
ROU  2 
ROU  3 
ROU  4 


SPECIFICATION  MODES! 

N  -  NO  CHANGE 
S  -  SCALE  ONLY 
P  -  PARAMETRIC 
M  -  MATRIX 

REVISE  SPECIFICATIONS?  (N  8  P  M)  N 


MATRIX  ROU  TO  CHANGE?  <l-4> 


</ 


NO  FURTHER  CHNG) 


REVISE  GROUP  3/LEVEL  2-3T 
E  M  L  U 

0  0  0  0  (/  -  NO  CHNG) 

4*25S 

GROUP  3  C0NTRA8T  THRESHOLD  MATRIX 


0-1 

1-2 

2- 3 

3- 4 


E 

0 

0 

255 

0 


M 

0 

0 

255 

0 


L 

0 

0 

255 

0 


U 

0 

0 

255 

0 


ROU  1 
ROU  2 
ROU  3 
ROU  4 


MATRIX  ROU  TO  CHANGE?  (1-4) 


(/  -  NO  FURTHER  CHNG) 
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GROUP  4  CONTRAST  THRESHOLD  MATRIX 


E 

M 

L 

u 

0-1 

0 

0 

0 

0 

ROW 

1 

1-2 

0 

0 

0 

0 

ROW 

2 

2-3 

0 

0 

0 

0 

ROW 

3 

3-4 

0 

0 

0 

0 

ROW 

4 

SPECIFICATION  MODES t 
N  -  NO  CHANGE 
S  -  SCALE  ONLY 
P  -  PARAMETRIC 
M  -  MATRIX 

REMISE  SPECIFICATIONS?  IN  8  P  H)  N 


BLOCK/PATTERN  ASS I GNHENT t 

LEVEL  01234 
MODE  BBBBB 

REVISE  B/P  VECTOR?  BBBBB 


GRAY-SCALE  MANIPULATIONS!  REV1EU/REVISE?  (Y  OR  N>  N 


CONTRAST  SPACE  REMAPPING!  PIECEWISE  LINEAR 

(CODE  SPACE/CONTRAST  SPACE)  BREAKPOINT  PAIRS 

0  0 
2SS  233 

REVISE  CONTRAST  REMAP?  (Y  OR  N>  N 


INTENSITY  SPACE  REMAPPING!  PIECEWISE  LINEAR 

(CODE  SPACE/INTENSITY  8PACE)  BREAKPOINT  PAIRS 

0  0 
235  253 

REVISE  INTENSITY  REMAP?  <Y  OR  N>  N 


INTENSITY  RESET! 

M  -  MEAN  OF  QUAD 
P  -  PSEUDO-MEDIAN  OF  QUAD 
L  -  LOWEST  IN  QUAD 
8  -  SECOND  IN  QUAD 
T  -  THIRD  IN  QUAD 
H  -  HIGHEST  IN  QUAD 


REVI8E  RE8ET?  (M  P  L  S  T  H)  H 


> 


USER  SPECIFICATION  COMPLETE: 

**************************** 

REVIEW?  (Y  OR  N>  N 


SAVE  THESE  PARAMETERS  FOR  FUTURE  USE?  (Y  OR  N)  N 
N 


I 

MAPS  COMPRESSING  IMAGE  MTEST  16.  128  LINES  BY  128  PIXELS 


> 


MAPS  FILE  CONTAINS 
MAPSEL  DISTRIBUTION 

level:  0 

COUNT:  32 

OPTIMAL  BIAS:  - 
+ 

COMPRESSION  ratio: 
BIT8/PIXEL!  0.2919? 

MEAN  SQUARE  ERROR 1 

> 


1  512-BYTE  RECORDS  PLUS 


12  3 

?80  8  92 

0  0  0 

0  0  0 

27.398  1  1 


3. 90364  X 


86  BYTES  IN  THE  LAST 


4 

36 


0 

0 


Note  that  the  micro-fidelity  control  matrices  had  all  been  set  to  the 
'perfect  fidelity'  condition  as  part  of  the  prior  MSET.DAT  definition. 
Also,  the  'block/pattern'  vector  had  been  set  to  all  'block*  mode, 

BBBBB.  The  only  editing  required  was  that  to  revise  the  contrast  control 
matrices  for  each  group  and  to  update  the  intensity  reset  strategy. 

The  results  for  this  example  were  retrieved  and  displayed  by  invoking 
modules  DMA PS,  RASTER  (twice),  and  ANNOTE.  The  protocol  for  DMA  PS  is: 
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* 


» 


I 


I 


I 


§ 


RUN  DR1SCS0*273DM 


HAPS  DECOMPRESS I ON/RESOLUT I ON  IMAGE  MODULE 


NO  USER  INPUTS  REQUIRED 

MAPS  DECOMPRESSING  IMAGE  HTEST  16.  128  LINES  BY  128  PIXELS 

> 


The  RASTER  runs  converted  both  DMAPS.DAT  and  LEVEL.DAT.  The  RASTER 
protocols  are: 


RUN  DR1SC50.273RS 

I******************************************** 
*  * 

*  MAPS  SUBFRAME  TO  RASTER  CONVERSION  MODULE  * 

*  * 
I***************************:***************** 


MAPS  PRODUCT  IMAGE  TYPE! 

1  -  IMAGE  < ORIGINAL  SOURCE) 

D  -  DMAP8  (MAPS  DECOMPRESSED) 

L  -  LEVEL  (MAPS  RESOLUTION  CODES) 
A  -  ADAPT  (ADAPTIVELY  SMOOTHED) 

E  -  ERROR  (DIFFERENCE) 

TYPE?  (I  D  L  A  E)  DC MAPS] 

D 


USER  SPECIFICATION  COMPLETES 

**************************** 

REVIEW?  (Y  OR  N)  N 
N 

CONVERTING  IMAGE  MTEST  16*  FILE  TYPES  DMAPS 

TO  128  LINE  BY  128  PIXEL  RASTER*  FILE  TYPES  DRAST 

> 


RUN  DR1 SC50»273RS 

*  * 

*  MAPS  SUBFRAME  TO  RASTER  CONVERSION  MODULE  * 

*  * 
V******************************************** 


MAPS  PRODUCT  IMAGE  TYPES 

I  -  IMAGE  < ORIGINAL  SOURCE) 

D  -  DMAPS  (MAPS  DECOMPRESSED) 

L  -  LEVEL  (MAPS  RESOLUTION  CODES) 
A  -  ADAPT  (ADAPTIVELY  SMOOTHED) 

E  -  ERROR  (DIFFERENCE) 

TYPE?  (I  D  L  A  E)  DC MAPS I 
L 


USER  SPECIFICATION  COMPLETES 

**************************** 

REVIEW?  (Y  OR  N)  N 
N 

CONVERTING  IMAGE  MTEST  16,  FILE  TYPES  LEVEL 

TO  128  LINE  BY  128  PIXEL  RASTERt  FILE  TYPES  LRAST 

> 


Finally,  the  ANNOTE  protocol  is: 


RUN  DR1SCS0.273AI 

**************************************** 
*  * 

*  IMAGE  ASSEMBLY  AND  ANNOTATION  MODULE  * 

*  * 
**************************************** 


OUTPUT  IMAGE  SPECIFICATIONS 
OUTPUT  FILE  MODES 

R  -  GRAY  SCALE  RASTER  IMAGE  FILE  * ANIMG.DAT* 

P  -  LINE  PRINTER  PSEUDO  IMAGE  FILE  ‘APRINT.DAT* 

MODE?  (R  P)  R 
P 

NUMBER  OF  LINES?  800  (/  -  NO  CHNG) 

257 

NUMBER  OF  PIXELS?  (UP  TO  128)  128  (/  -  NO  CHNG) 

/ 

COMPLEMENT  BACKGROUND?  (Y  OR  N)  N 
N 
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EMBEDDED  IMAGES 


!i 


B 


n 


> 

2 

DRAST 

/ 

/ 

128 

/ 

/ 

/ 

N 


(/ 


LRAST 

/ 

/ 

128 

/ 

J  30 
/ 

N 


NUMBER  Of  IMAGES?  (012)  0 

IMAGE  li 

FILENAME?  (UP  TO  9  CHARACTERS)  F0R002 
SKIP  LINES  INTO  INPUT  IMAGE?  0  (/ 

SKIP  PIXELS  INTO  INPUT  IMAGE?  (<4000> 
NUMBER  OF  LINES?  (UP  TO  2S7)  257 

NUMBER  OF  PIXELS?  (UP  TP  128)  128 

STARTING  LINE?  (RANGE  1  -  130)  1 

STARTING  PIXEL?  (RANGE  1  -  1)  1 

COMPLEMENT  IMAGE?  (Y  OR  N)  N 
IMAGE  21 

FILENAME?  (UP  TO  9  CHARACTERS)  F0R003 
SKIP  LINES  INTO  INPUT  IMAGE?  0 


NO  CHNG) 


NO  CHNG) 

0  (/  -  NO  CHNG) 

(/  »  NO  CHNG) 

(/  -  NO  CHNG) 

(/  -  NO  CHNG) 

(/  ■  NO  CHNG) 


(/  -  NO  CHNG) 


SKIP  PIXELS  INTO  INPUT  IMAGE?  (<4000> 


(/  -  NO  CHNG) 


COMPLEMENT  IMAGE?  (Y  OR  N>  N 


(/  -  NO  CHNG) 


EMBEDDED  ANNOTATION! 

NUMBER  OF  MESSAGES?  (0  -  20)  0 

/ 

USER  SPECIFICATION  COMPLETE! 

REVIEW?  (Y  OR  N)  N 
N 

ASSEMBLING  AND  ANNOTATING  IMAGE! 

257  LINES  BY  128  PIXELS  TO  FILE  •APRINT.DAT" 
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NUMBER  OF  LINES?  (UP  TO 

257) 

257 

(/  -  NO  CHNG) 

NUMBER  OF  PIXELS?  (UP  TP 

128) 

128 

(/  ■  NO  CHNG) 

ft 

STARTING  LINE?  (RANGE  1  -  130) 

1 

(/  -  NO  CHNG) 

’» 

STARTING  PIXEL?  (RANGE  1 

1) 

1 

(/  •  NO  CHNG) 

:  1 
i 


The  resultant  MAPS  'decompressed*  image  and  the  corresponding  MAPS 
•level'  image  are  displayed  in  Figure  8-4.  For  the  lxl-MAPSel  structure, 
the  'one  dark  and  three  light'  quads  are  seen  to  be  forced  to  2x2  form 
and  to  show  up  as  'light'  MAPSels.  This  intensity  reset  is  a  consequence 
of  the  'pseudo-median'  selection  and  the  fact  that  the  two  'middle' 
intensities  are  both  'light'.  The  other  quads  of  1x1  MAPSels  are  left 
unchanged.  Thus,  the  predictions  for  this  structure  are  all  borne  out. 

In  the  region  corresponding  to  group  2,  the  resolution  image  shows  that 
2x2  MAPSels  are  used  throughout.  Again,  the  predictions  are  verified. 

In  the  group  3  region,  all  4x4  MAPSels  are  seen  to  be  composited  to  8x8 
form.  The  'one  dark  and  three  light'  quads  go  to  all  'light'.  The  'two 
adjacent  dark  and  two  adjacent  light'  quads  go  to  a  'mid-gray'.  The 
'three  dark  and  one  light'  quads  go  to  all  'dark'.  Each  of  these  is 
consistent  with  'forced  compositing*  and  'pseudo-median  reset'  as 
expected. 

Finally,  region  4  shows  the  predicted  'perfect  fidelity’  decompression 
and  'natural  MAPSel'  resolution-image  structure. 

This  example  demonstrates  the  diagnostic  and  verification  power  of  the 
special  test  image,  MTEST.DAT.  It  also  shows  the  potential  of  this  image 
to  illustrate  the  detailed  performance  of  the  MAPS  compression  options. 
The  user  is  encouraged  to  exploit  this  image  for  further  development  of 
MAPS  process  understanding  and  'intuition'. 


Figure  8-4.  MAPS  Decompressed  and  Resolution  Images 
for  Diagnostic  Test  Example 
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SECTION  NINE 


HAPS  PRODUCT  GENERATION:  EXTENDED  USE 

This  section  presents  examples  of  TransMAPS  application  with  emphasis  on 
MAPS  ft-oduct  formation  options. 

9.1  MAPS  ft'oduct  Generation  Planning  Form 

Figure  9-1  presents  a  reduced  photocopy  of  the  MAPS  Planning  Form  for  the 
product  generation  tasks.  The  planning  form  summarizes  the  user  options 
for  modules  #3  (DMA PS),  #4  (ADAPT),  #5  (DIFFER)  and  #6  (RASTER). 

These  modules  have  relatively  few  interactive  parameters  compared  with 
the  compression-phase  tasks.  However,  the  file  structure  is  much  more 
extensive  and  complex  (see  Figure  2-1).  The  relevant  files  for  each 
module  are  listed  on  the  form. 

9.2  User  Interaction  ft-otocol  (All  Modules) 

The  remaining  subsections  describe  a  series  of  examples  in  which  the  MAPS 
compression  level  is  held  fixed  at  essentially  two  bits  per  pixel.  The 
source  image  for  the  series  is  the  'toy'  (120  line  x  128  pixel)  GIRL6.DAT 
image.  The  examples  depict  the  evolution  of  increasing  MAPS  image 
'quality'  under  alternative  compression  and  product  generation 
strategies.  Seven  examples  make  up  the  series  and  the  comparative 
control  states  are  summarized  in  the  following  tabulation: 


HAPS  Planning  Foiw  (allowed  range)  [default]  Date _ 

(product  generation)  Image  namc_ 

Compression. 

MODULE  USER  INPUTS 

RUNJHAPS 

FILES ! 

in  -  HAPS.DAT 
out  -  DMAPS.DAT 
out  -  LEVEL.DAT 


RUN_AD^  /not  nitn  STAGGER  grid/ 

FILES: 

IN  -  DHAPS.DAT 
in  -  LEVEL.DAT 


CONVOLUTION  WEIGHTING  (GAUSSIAN  UNIFORM)  [6] 

SIGMA  MULTIPLE  AT  WINDOW  CORNER  [2-0]  _  /GAUSSIAN  ONLY/ 

RANDOM  DITHER  AMPLITUDE  [«-0]  _ 


OUT  -  ADAPT.  »T 


RUN  DIFFER 


FILES: 

IN  -  IHAGE.DAT 
IN  -  DHAPS.DAT 
in  -  ADAPT.DAT 


ANY  TWO 


out  -  ERR0R.DAT 


out  -  EPRINT.DAT  (listing) 


file  pairings  ( 1HAGE  vs  DHAPS  IHAGE  vs  ADAPT  DHAPS  vs  ADAPT)  [l 

DIFFERENCE  PARAMETERS 

(  <0  SIGNED  -0  STATISTICS  ONLY  >0  AMPLIFICATION  FACTOR )[lC>] _ 


RUN  RASTER 

FILES: 

IN  -  IHAGE.DAT 
in  -  DHAPS.DAT 
in  -  LEVEL.DAT 
in  -  ADAPT.DAT 
in  -  ERROR.DAT 

out  -  IRAST.DAT 
out  -  DRAST.DAT 
out  -  LRAST.DAT 
out  -  ARAST.DAT 
out  -  ERAST. DAT 


HAPS  RASTER  PRODUCT 


(IHAGE  DHAPS  LEVEL  ADAPT  ERROR)  [DHAPS] 


l  ANY  ONE 


)  TYPE  MATCHES  IMPUT 


Figure  9-1.  MAPS  Product  Generation  Planning  Form 


Product  Generation  Example! 


Example 

Contrast  Scale 

Block/Pattern 

Convolution 

Dither 

2X2  MEAN 

Force  Level  l 

• 

m 

DMAPS  B2 

72 

BBBB 

- 

am 

ADAPT  B2 

72 

BBBB 

uniform 

0 

DMAPS  P2 

72 

BPPP 

m 

- 

ADAPT  P2 

72 

BPPP 

Uniform 

0 

GAUSS  P2 

72 

BPPP 

Gaussian; 2 

0 

DITHER  8 

72 

BPPP 

Gaussian;2 

B 

A  sample  protocol  from  one  of  the  examples  is  exhibited  as  the  remainder 
of  this  subsection.  The  protocol  corresponds  to  the  'GAUSS  P2*  case  and 
involves  all  seven  modules  in  TransMAPS.  The  sequence  of  module 
invocations  is  as  follows: 

RUN  SF 
RUN  MP 
RUN  DM 
RUN  AD 
RUN  DF 

RUN  RS  (Convert  ADAPT.DAT) 

RUN  RS  (Convert  ERR0R.DAT) 

RUN  AI 

By  this  point,  the  protocols  should  be  self-explanatory  so  they  are 
displayed  sequentially  without  interruption: 

RUN  DR1 1C50»273SF 

*t*******t*********************************** 

*  * 

*  HAPS  RASTER  TO  SUBFRAME  CONVERSION  MODULE  * 

****t**************************************** 

SOURCE  identification: 

SOURCE  RASTER  FILENAME?  <UP  TO  9  CHARACTERS)  F0R002 
GIRL* 

USER  IMAGE  NAME?  <UP  TO  8  CHARACTERS) 

GIRL  8x8 


« *»* 


SOURCE  IMAGE  POSITIONS 

NUMBER  OF  LINES  TO  SKIP?  0  (/  ■  NO  CHNO) 

/ 

NUMBER  OF  PIXELS  TO  SKIP?  <<  4000)  0  (/  -  NO  CHNO) 

/ 

SOURCE  IMAGE  SIZES 

NUMBER  OF  LINES  TO  PROCESS?  480  (/  -  NO  CHNO) 

120 

NUMBER  OF  PIXELS  TO  PROCESS?  <UP  TO  4000)  424  </  -  NO  CHNO) 

128 

NUMBER  OF  BITS/PIXEL?  (48)  8  </  -  NO  CHNO) 

4 

SOURCE  IMAGE  PARTITIONS 

SUBFRAME  EDGE?  (8  14  32)  8  (/  -  NO  CHNO) 

/ 

STAGGER  GRID?  <Y  OR  N)  N 
N 


USER  SPECIFICATION  COMPLETES 

***«*»**««**««*«**«»******«* 

REVIEW?  <Y  OR  N>  N 
N 

CONVERTING  IMAGE  GIRL  8x8  TO  240  SUBFRAMES 

> 


**St******SS**«*S**t**tt*** 

* 

MAPS  COMPRESSION  MODULE  « 

* 

***«******t«**tt**»*»***«t* 


USER  OPTION  MODES S 

Q  -  QUICK  MODE  (SELECT  CONTRAST  8CALE  ONLY) 

U  -  USER  PRE-DEFINED  PARAMETERS  FROM  FILE  MSET . DAT 
F  -  FULL  OPTION  REVIEW  AND  SELECTIVE  REVISION 

MODE?  (0  U  F)  Q 
F 


MACRO-FIDELITY  CONTROLS  REVIEW/REVISE?  (Y  OR  N)  N 


N 


MICRO-FIDELITY  CONTROL t  REVIEW/REVISE?  <Y  OR  N)  N 


Y 

GROUP  1  CONTRAST  THRESHOLD  PARAMETERS 


CONTRAST  SCALE  20.0 
TAPER  3.0 
STEP  FRACTION  0.5 
STEP  BIAS  0.1 


GROUP  1  CONTRAST  THRESHOLD  MATRIX 


E 

M 

L 

U 

0-1 

20 

10 

12 

12 

ROU 

1 

1-2 

7 

3 

4 

4 

ROU 

2 

2-3 

2 

1 

1 

1 

ROU 

3 

SPECIFICATION  MODES.* 

N  -  NO  CHANGE 
S  -  SCALE  ONLY 
P  -  PARAMETRIC 
M  -  MATRIX 

REVISE  SPECIFICATIONS?  (N  S  P  M>  N 
GROUP  1  CONTRAST  SCALE?  20.0  </  *  NO  CHNG) 

GROUP  1  CONTRAST  THRESHOLD  PARAMETERS 


CONTRAST  SCALE  72.0 
TAPER  3.0 
STEP  FRACTION  0.5 
STEP  BIAS  0.1 


GROUP  1  CONTRAST 
E  M 
0-1  72  36 

1- 2  24  12 

2- 3  8  4 


THRESHOLD  MATRIX 
L  U 

43  43  ROU  1 

14  14  ROU  2 

5  5  ROU  3 


SPECIFICATION  MODES: 

N  -  NO  CHANGE 
8  -  SCALE  ONLY 
P  -  PARAMETRIC 
M  -  MATRIX 

REVISE  SPECIFICATIONS?  (N  B  P  M>  N 


BLOCK/PATTERN  ASSIGNMENT! 

LEVEL  0123 
MODE  BPPB 

REVISE  B/P  VECTOR?  BPPB 

BPPP 
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GRAY-SCALE  MANIPULATIONS:  REVIEW/REVISE?  <Y  OR  N>  N 
N 


USER  SPECIFICATION  COMPLETE: 
**************************** 

REVIEW?  <Y  OR  N)  N 
N 

SAVE  THESE  PARAMETERS  FOR  FUTURE  USE?  <Y  OR  N>  N 
N 


MAPS  COMPRESSING  IMAGE  GIRL  8x8*  120  LINE8  BY  128  PIXELS 


MAPS  FILE  CONTAINS  7  512-BYTE  RECORDS  PLUS  234  BYTES  IN  THE  LAST 
MAPSEL  distribution: 

LEVEL:  0123 

COUNT:  1052  1557  425  20 

OPTIMAL  BIAS!  -6  -2  0 

+  9  5  3 

COMPRESSION  RATIO:  3.017  :  1 

BITS/PIXEL:  1. 98854 

MEAN  SQUARE  ERROR:  0.18080  X 

> 


RUN  DR1 : C50f 273DM 

********************************************** 

*  * 

*  MAPS  DECOMPRESSION/RESOLUTION  IMAGE  MODULE  * 

*  * 
********************************************** 

NO  USER  INPUTS  REQUIRED 

MAPS  DECOMPRESSING  IMAGE  GIRL  8x8 r  120  LINES  BY  128  PIXELS 

> 
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RUN  »Ri:t50f27JAD 

********************************** 

*  4 

*  NAPS  ADAPTIVE  SMOOTHING  MODULE  * 

*  * 
********************************** 


CONVOLUTION  WEIGHTINGS 

UNIFORM  OR  GAUSSIAN?  (U  G>  G 
G 

SIGMA  MULTIPLE  AT  WINDOW  CORNER?  2.0  (/  =  NO  CHNG) 

/ 

RANDOM  DITHERS 

AMPLITUDE?  4.0  (/  -  NO  CHNG) 

0 


USER  SPECIFICATION  COMPLETES 

**************************** 

REVIEW?  (Y  OR  N)  N 
N 

MAPS  ADAPTIVE  SMOOTHING  IMAGE  GIRL  8x8 ?  120  LINES  BY  128  PIXELS 

> 


RUN  DR1 • C50? 273DF 

******************************** 
*  * 

*  MAPS  DIFFERENCE  IMAGE  MODULE  * 

*  * 
******************************** 


INPUT  IMAGE  TYPES! 

I  -  IMAGE  (ORIGINAL  SOURCE)  IMAGE1  ONLY 
D  -  DMAPS  (MAPS  DECOMPRESSED) 

A  -  ADAPT  (ADAPTIVELY  SMOOTHED)  IMAGE2  ONLY 

IMAGE1?  (I  D)  I T SAGE 3 
I 

IMAGE2?  (D  A)  DCMAPS3 
A 

DIFFERENCE  IMAGE  TYPES 

AMPLIFICATION  FACTOR 

<0  SIGNED  AND  BIASED  DIFFERENCE  IMAGE 
■0  NO  DIFFERENCE  IMAGE >  STATISTICS  ONLY 
>0  AMPLIFIED  DIFFERENCE  IMAGE 
(VALUE  IS  AMPLIFICATION) 

FACTOR?  10.  (/  *  NO  CHNG) 

6 


USER  SPECIFICATION  COMPLETES 


REVIEW?  (Y  OR  N)  N 
N 

DIFFERENCING  GIRL  8x8  TYPE  IMAGE?  VS  GIRL  8x8  TYPE  ADAPT 

> 
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RUN  DR1 : C50f 27DRS 


********************************************* 
*  * 

*  NAPS  SUBFRAME  TO  RASTER  CONVERSION  NODULE  * 

*  * 
********************************************* 


MAPS  PRODUCT  IMAGE  TYPE: 

I  -  IMAGE  (ORIGINAL  SOURCE) 

D  -  DMAPS  (MAPS  DECOMPRESSED) 

L  -  LEVEL  (MAPS  RESOLUTION  CODES) 
A  -  ADAPT  (ADAPTIVELY  SMOOTHED) 

E  -  ERROR  (DIFFERENCE) 

TYPE?  (I  D  L  A  E)  DCMAPS3 
A 


USER  SPECIFICATION  COMPLETE: 

**************************** 

REVIEW?  (Y  OR  N)  N 
N 

CONVERTING  IMAGE  GIRL  8x8 •  FILE  TYPE:  ADAPT 

TO  120  LINE  BY  128  PIXEL  RASTER'  FILE  TYPE!  ARA8T 

> 

RUN  DRi:C50»273RS 

********************************************* 

*  * 

*  MAPS  SUBFRAME  TO  RASTER  CONVERSION  MODULE  * 

*  « 

********************************************* 


MAPS  PRODUCT  IMAGE  TYPE! 

I  -  IMAGE  (ORIGINAL  SOURCE) 

D  -  DMAPS  (MAPS  DECOMPRESSED) 

L  -  LEVEL  (MAPS  RESOLUTION  CODES) 
A  -  ADAPT  (ADAPTIVELY  SMOOTHED) 

E  -  ERROR  (DIFFERENCE) 

TYPE?  (I  D  L  A  E)  DCMAPS3 
E 


USER  SPECIFICATION  COMPLETE: 

**************************** 

REVIEW?  (Y  OR  N)  N 
N 

CONVERTING  IMAGE  GIRL  8x8'  FILE  TYPE:  ERROR  A-I 

TO  120  LINE  BY  128  PIXEL  RASTER*  FILE  TYPE1  ERAST 

> 
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I 

I 


RUN  DR1?C50f273AI 

**************************************** 
*  * 

*  IMAGE  ASSEMBLY  AND  ANNOTATION  MODULE  * 

*  * 
**************************************** 


OUTPUT  IMAGE  SPECIFICATION? 

OUTPUT  FILE  MODES 

R  -  GRAY  SCALE  RASTER  IMAGE  FILE  ‘ANIMG.DAT* 

P  -  LINE  PRINTER  PSEUDO  IMAGE  FILE  * APRINT.DAT* 

MODE?  (R  P)  R 
P 

NUMBER  OF  LINES?  800  </  *  NO  CHNG) 

256 

NUMBER  OF  PIXELS?  <UP  TO  128)  128  </  *  NO  CHNG) 

/ 

COMPLEMENT  BACKGROUND?  <Y  OR  N>  N 


EMBEDDED  IMAGES? 

NUMBER  OF  IMAGES?  <012)  0  (/  -  NO  CHNG) 

2 

IMAGE  1? 


ARAST 

/ 

/ 

120 

/ 

/ 

/ 

N 


FILENAME?  <UP  TO  9  CHARACTERS)  F0R002 

SKIP  LINES  INTO  INPUT  IMAGE?  0  (/  -  NO  CHNG) 

SKIP  PIXELS  INTO  INPUT  IMAGE?  <<4000)  0  </  «  NO  CHNG) 

NUMBER  OF  LINES?  <UP  TO  254)  256  </  ■  NO  CHNG) 

NUMBER  OF  PIXELS?  (UP  TP  128)  128  </  «  NO  CHNG) 

STARTING  LINE?  (RANGE  1  -  137)  1  </  »  NO  CHNG) 

STARTING  PIXEL?  (RANGE  1  -  1)  1  (/  -  NO  CHNG) 

COMPLEMENT  IMAGE?  (Y  OR  N)  N 


IMAGE  2? 


FILENAME?  (UP  TO  9  CHARACTERS)  F0R003 

ERAST 

SKIP  LINES  INTO  INPUT  IMAGE?  0  (/  -  NO  CHNG) 

/ 

SKIP  PIXELS  INTO  INPUT  IMAGE?  K4000)  0  (/  -  NO  CHNG) 

/ 

NUMBER  OF  LINES?  (UP  TO  256)  256  (/  -  NO  CHNG) 

120 

NUMBER  OF  PIXELS?  (UP  TP  128)  128  (/  «  NO  CHNG) 

/ 

STARTING  LINE?  (RANGE  1  -  137)  1  (/  ■  NO  CHNG) 

137 

STARTING  PIXEL?  (RANGE  1  -  1)  1  (/  -  NO  CHNG) 

/ 

COMPLEMENT  IMAGE?  (Y  OR  N)  N 
N 
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EMBEDDED  ANNOTATION: 


NUMBER  OF  MESSAGES?  <0  -  20)  0  (/  -  NO  CHNG) 

1 

MESSAGE  1 : 

ORIENTATION  IN  FRAME*  TOP  OF  SYMBOL  TOWARD: 

T  -  TOP 
B  -  BOTTOM 
L  -  LEFT 
R  -  RIGHT 

ORIENTATION?  <T  B  L  R)  T 
T 

MESSAGE  1  LENGTH 

0-8  CHARACTERS  AT  IX 
0-4  CHARACTERS  AT  2X 
0-2  CHARACTERS  AT  3X 
0-2  CHARACTERS  AT  4X 

CHARACTER  COUNT?  0  (/  -  NO  CHANGE*  0  *  DELETE) 

8 

MESSAGE  1  SYMBOL  SIZE?  <1  )  1  (/  -  NO  CHNG) 

/ 

MESSAGE  CENTER  AT  LINE?  <  8  -  248)  8  (/  -  NO  CHNG) 

128 

MESSAGE  CENTER  AT  PIXEL?  (  64  -  64)  64  </  -  NO  CHNG) 

/ 

COMPLEMENT  MESSAGE  1?  (Y  OR  N)  N 
N 

ALLOWED  CHARACTERS 

ALPHA  caps:  ABCDEFGHIJKLMNOPORSTUVWXYZ 
NUMERALS:  0123456789 

punctuation:  <  >  .  .  :  Brace 
arithmetic:  +  -  *  /  x 
relational:  -  <  >  f(<or»>  l(>or>) 
directional:  •  (East) 

(ARROWS)  n  (North)  n 

w  (West)  b  a 

s  (South) 

a  (NE  Northeast)  w  +  e 
b  (NW  Northwest) 
c  (SW  Southwest)  e  d 

d  (SE  Southeast)  s 

MESSAGE  1  TEXT?  (  8  CHARACTERS) 


GAUSS  P2 


MSG  LINE  PIX  TEXT 

1  T  IX  128  64  GAUSS  P2 

MESSAGE  TO  CHANGE?  (1-1)  (/  -  NO  FURTHER  CHNG) 

/ 

USER  SPECIFICATION  COMPLETE'. 

**************************** 

REVIEW?  (Y  OR  N>  N 
N 

ASSEMBLING  AND  ANNOTATING  IMAGE: 

256  LINES  BY  128  PIXELS  TO  FILE  •APRINT.DAT* 


9.3  Resolution  (level)  Image 


Figure  9-2  shows  the  source  frame  and  the  resolution  or  level  image  which 
exhibits  the  same  form  for  all  of  the  runs  at  contrast  scale  72.  The 
white  areas  correspond  to  1x1  coding,  the  'dots'  to  2x2's,  the  'minuses' 
to  4x4's  and  the  'pluses'  to  8x8' s.  Note  that  MAPS  concentrates  its 
resources  at  points  which  define  the  key  features  of  the  image  content. 

Figure  9-3  presents  the  results  of  simple  2x2  averaging  to  achieve  two 
bits  per  pixel.  This  then  forms  the  baseline  for  comparison  with  MAPS 
products  at  the  same  compression  level.  This  case  was  established  using 
TransMAPS  with  'forced  compositing'  (threshold  255)  for  the  level  0-1 
transition  and  'forced  resolution  retention'  (threshold  -1)  for  the  level 
1-2  transition. 

The  lower  half  of  Figure  9-3  portrays  the  results  of  the  DIFFER  Module 
applied  between  the  source  (lxl  throughout)  and  the  2x2  MEAN  image.  An 
amplification  factor  of  6.0  was  used.  The  corresponding  error  histogram 
is  displayed  in  Figure  9-4;  this  is  the  EPRINT.DAT  file  from  DIFFER. 

9.4  Block  Decompression 

Figure  9-5  shows  the  MAPS  decompression  and  amplified  difference  image 
(factor  =  6.0)  for  simple  'block'  mode  compression  at  all  levels.  The 
error  histogram  is  shown  in  Figure  9-6.  Note  that  MAPS  definition  around 
the  eyes,  mouth,  and  jaw  line  is  considerably  sharper  than  in  the  2x2 
MEAN  case.  Howeve~,  the  image  is  quite  'blocky'  elsewhere. 

9.5  Block  Mode  with  Uniform  Adaptive  Smoothing 

Figure  9-7  corresponds  to  subsequent  adaptive  smoothing  of  the  'block' 
mode  results  in  Figure  9-5.  Tbe  comparable  error  histogram  is  given  in 
Figure  9-8.  Note  that  the  smoothing  process  does  much  to  eliminate  the 
perceptible  artifacts.  However,  the  smoothing  process  is  relatively 
expensive  in  computation  time. 
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9.6  fbttern  Decompression 


Figure  9-9  shows  the  MAPS  decompression  and  difference  image  with  the 
'pattern'  mode  used  throughout.  The  error  histogram  is  given  in 
Figure  9-10.  This  case  shows  significant  sharpening  of  features  relative 
to  the  'block'  mode  and  is  quite  acceptable  even  without  further 
smoothing.  The  difference  image  exhibits  a  mostly  'salt  and  pepper' 
texture  which  is  largely  decorrelated  from  the  scene  content.  Note  that 
this  is  the  normal  default  mode  recommended  for  MAPS  use  and  is  very 
efficient  computationally. 

9.7  ftttern  Mode  with  Uniform  Adaptive  Smoothing 

Figure  9-11  corresponds  to  the  adaptive  smoothing  of  the  'pattern'  image 
in  Figure  9-9;  the  error  histograms  are  shown  in  Figure  9-12.  Here, 
'uniform'  convolution  weighting  was  used  in  the  smoothing  process.  This 
version  is  slightly  better  than  the  direct  'pattern'  mode  but  at 
considerable  extra  computation. 

9.8  ftttern  Mode  with  Gaussian  Adaptive  Smoothing 

Figure  9-13  depicts  the  same  case  as  Figure  9-11  except  that  'Gaussian' 
convolution  weighting  was  substituted  for  'uniform'  weights.  The  spread 
of  the  weighting  function  was  chosen  so  that  the  2.0  sigma  point  occurs 
in  the  corner  of  the  convolution  window.  Very  small  differences  can  be 
discerned  between  the  results  in  Figures  9-11  and  9-13.  The  error 
histogram  for  the  Gaussian  case  is  presented  in  Figure  9-14. 

9.9  Rittern/ Gaussian  Mode  with  Dither 

Figure  9-15  repeats  the  Gaussian-smoothed  results  except  that  a  random 
dither  has  been  added  to  the  'smoothing'  process.  The  maximum  amplitude 
of  the  dither  is  8  gray  levels  (of  256)  with  the  actual  sign  and  size  for 
each  pixel  determined  from  a  pseudo-random  number  generator.  Figure  9-16 
gives  the  matching  error  histogram.  This  example  is  seen  to  have  less 
perceptible  intensity  'contouring'  than  the  cases  without  dither. 


MAPS  Resolution  Image  at  2  bits/pixel 
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Figure  9-3.  Simple  Averaging  to  Achieve  2  bits/pixel 
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Figure  9-4.  Error  Histogram  For  2x2  MEAN  Example 


Figure  9-5.  MAPS  Block  Mode  at  2  bits/pixel 
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Figure  9-6.  Error  Histogram  for  DMAPS  B2  Block  Mode  Example 
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Figure  9-8.  Error  Histogram  for  ADAPT  B2  Block  Mode  Example 


Figure  9-9.  MAPS  Pattern  Mode  at  2  bits/pixel 
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Figure  9-10.  Error  Histogram  For  DMAPS  P2  Pattern  Mode  Example 


Figure  9-11.  MAPS  Pattern  Mode  With  Adaptive  Smoothing 
(Uniform  Weight) 
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Figure  9-12.  Error  Histogram  for  ADAPT  P2  Pattern 
Mode  Example 
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Figure  9-14.  Error  Histogram  for  GAUSS  P2  Pattern  Mode  Example 


Figure  9-15.  MAPS  Pattern/Gaussian  Mode  With  Dither 
{Amplitude  =  8) 
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Figure  9-16.  Error  Histogram  For  Pattern/Gaussian 
DITHER  8  Example 


9.10  Mean  Square  Error  Performance  Comparisons 


The  qualitative  image  improvement  described  for  the  above  sequence  is 
also  borne  out  by  the  quantitative  fidelity  measures.  The  histograms  in 
Figures  9-4,  9-6,  9-8,  9-10,  9-12,  and  9-14  exhibit  progressive  narrowing 
with  a  slight  relaxation  when  random  dither  is  added  (Figure  9-16).  The 
following  tabulation  of  summary  error  statistics  reflects  this 
improvement  as  well: 

Mean  square  Error  Performance: 


Example 

Mean  square 

Error 

Relative 

MSE 

RMS  Error 

2X2  MEAN 

0.66055 

« 

2.73859 

« 

12.317 

DMAPS 

B2 

0.30531 

« 

1.26581 

% 

8.374 

ADAPT 

82 

0.27853 

t 

1.15492 

% 

7.998 

DMAPS 

P2 

0.18019 

« 

0.74706 

% 

6.433 

ADAPT 

P2 

0.16595 

% 

0.68802 

« 

6.173 

GAUSS 

P2 

0.16167 

« 

0.67027 

t 

6.093 

DITHER  8 

0.17555 

% 

0.72780 

« 

6.349 

From  these  summary  statistics,  it  is  seen  that  the  'block'  mode  is 
significantly  better  than  simple  averaging  and  the  'pattern'  mode  gives  a 
further  dramatic  improvement.  Although  it  is  a  heuristic  technique, 
adaptive  smoothing  is  also  seen  to  yield  a  small  but  consistent 
enhancement  in  fidelity.  Finally,  the  slight  loss  from  the  addition  of 
dither  seems  more  than  compensated  by  its  improvement  of  visual  quality. 

9.11  A  'Real '-Image  Example 

This  closing  subsection  presents  an  example  of  the  application  of 
TransMAPS  to  a  'real'  (video-sized)  image  -  the  BLDGIMG.DAT  file  which  is 
supplied  with  the  package.  The  interaction  is  summarized  on  the  three 
planning  forms  displayed  as  Figures  9-17,  9-18,  and  9-19.  Not  shown  are 
two  ANNOTE  protocols,  each  of  which  assembles  two  image  frames  prior  to 
the  final  four-frame  composite.  This  is,  however,  an  example  of  the 
recursive  use  of  ANNOTE. 


MODULE 

RyHJUBFfffl  / 

ULtS: 

in  -  User  Raster 
out  -  IMAGE . DAT 


FILES: 

IN  •  IMAGE. OAT 
out  -  HAPS.DAT 


WPS  Planning  Form 
(compression) 


(ALLOWED  RANGE)  [DEFAULT]  DATE  , 

USER  INPUTS 


SOURCE  IMAGE  FILE  NAME  ( 8  k.  2  2  J-  ^  & _ > 

USER  IMAGE  NAME  (8  ££  ]_  L  D  ]_  £) 

SKIP  LINES  Tol  0  SKIP  PIXELS  [ol  0 

PROCESS  LIME»f*.«Ol  4- 8  0  PROCESS  PIXELS!  684.3  6S4- 

t its/pixel  (  *©>  ro  _ 

SUBFRAME  SI2E  (©IS  12  )  |i]  SUBFRAME  GRID  (SQUARE (gTAGGE^  [SOUARE] 

Gil  ONLY 


mode  (Quick)  User  Full)  101 
Macro  fidelity  control:  [” 

IMAGE  PARTITION: 

PIXEL  INDEX  DIRECTION — 


in/out  -  HSET.DAT 

USER  PARAMETERS 


LINE  INDEX  DIRECTION  J 
EACH  CELL  (12)4)  [ALL  l] 


Micro  fidelity  control: 

PARAMETERS 


CONTRAST  SCALE 

30 

TAPER 

STEP  FRACTION 

M 

STEP  BIAS 

to  nr~ 

MATRIX  E 

H  L 

GROUP  2 

[).o; 


D-TSl - 

*11 - 

8>TJ - 


block/pattern  assignment,  each  level  (b  p)  [bppbbb] 

”  012)45  LEVEL 


6RAY-SCALE  MANIPULATIONS: 

CONTRAST  REMAP:  COM  CONTRAST 


BREAKPOINT  _  _ 

WIM  — — 

(NON-DC CREASING)  ' 


INTENSITY  REMAP :  CODE  INTENSITY 


COM  (0*255)  _ 
CONTRAST  (0*4015)' 


COM  (0*255) 
INTENSITY  (0*4005)* 


NTENSITY  RESET: 
(MEAN) 

(pseudo-median) 

(lowest) 

(second) 

(THIRD) 

(HIGHEST) 


HE  SUITS:  Compression:  I.8»ft87  b/p 
Mean  Square  Error:  0.II8M  I 


Level: 
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Optimal  Biases: 


0  1  2  3  R 
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Figure  9-17.  Compression  Planning  Form  -  Building  Scene 
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WPS  Pimm  NS  Forh 
(product  generation) 


(allowed  range  )  [default] 


Date  March  1*0  C 
Inace  name  BulLQINd 
Cohere  si  i  on  139637 


in  -  WPS. DAT 
out  -  DWPS.DAT 
out  -  LEVEL.DAT 


USER  INPUTS 


RUN  ADAPT  /not  with  STAG6ER  said/ 


in  •  DWPS.DAT 


in  -  LEVEL.DAT 
out  •  ADAPT.DAT 


CONVOLUTION  ME  I  ANTING  (GAUSSIAN  UNIFORM)  [6] 

SIGMA  MULTIPLE  AT  HINDOO  CORNER  [*•<>]  _  /GAUSSIAN  ONLY/ 

RANDOM  DITHER  AMPLITUDE  [«.0]  _ 


RUNJNFFER  / 

FILES! 

in  •  IW6E.DAT 

IN  -  DWPS.DAT  I  ANY  TWO 

IN  -  ADAPT.DAT 

out  -  ERR0K.DAT 

out  -  EPRINT.DAT  CuitYngO 


file  pairings  (iWfiE  vs  DWPS)  IWGE  vs  ADAPT  DWPS  vs  ADAPT)  [i  D] 

DIFFERENCE  PAR  AN*  'CRt 

(  <0  SIGNED  *0  STATISTICS  ONLY  >0  AMPLIFICATION  FACTOR) 


RUN  RASTER  ✓  r/mes 


in  -  IWGE.DAT 
in  -  DWPS.DAT 
in  -  LEVEL.DAT 
in  -  ADAPT.DAT 
in  -  ERROR.DAT 

out  •  IRAST.DAT 
out  •  DRAST.DAT 
out  -  LRAST.DAT 
out  -  ARAST.DAT 
out  •  ERAST.DAT 


WPS  RASTER  PRODUCT  (IWSE  (SwPS)(^VEl)  ADAPT  (^RO 


vm  hatches  imrr 


Figure  9-18.  Product  Generation  Planning  Form  -  Building  Scene 
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gure  9-19.  Annotati 


» 


Figure  9*20  presents  the  overall  visual  results.  The  frame  contains  the 
original  source  image,  the  MAPS  decompressed  image  (at  2  bits/pixel),  the 
resolution  or  level  image,  and  an  amplified  difference  image  which  has 
been  complemented  in  ANNOTE  so  large  differences  are  light  in  a  dark 
frame.  Finally,  the  difference  statistics  for  this  example  are  displayed 
as  Figure  9-21. 
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Figure  9-20.  'Real'-Image  MAPS  Example-Building  Scene 
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Figure  9-21.  Error  Histogram  For  Building  Scene 
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SECTION  ONE 

TRANSPORTABLE  MAPS  SOFTWARE:  THE  SYSTEMS  VIEW 

This  document  provides  formal  description  of  the  Transportable  MAPS 
Software  ftckage  or  'TransMAPS'  from  a  systems  viewpoint. 

1.1  Rirpose 

Micro- Adaptive  Picture  Sequencing  (MAPS)  is  a  computational ly-efficient, 
contrast-adaptive,  variable-resolution  spatial  image  coding  technique. 

The  TransMAPS  Software  feckage  implements  the  MAPS  processes  and  related 
support  functions  in  an  integrated  software  system  which  is  designed  to 
be  transportable  among  a  variety  of  high-use  mini -computers  in  the  DEC 
computer  family.  The  purpose  of  this  implementation  is  to  broaden  access 
to  MAPS.  The  ultimate  intent  is  to  establish  a  vehicle  suitable  for 
direct  exploration  of  the  MAP5  technique  and  to  provide  a  system  capable 
of  supporting  functional  application  of  MAPS  to  real  image  coding  tasks. 

The  current  document  addresses  those  areas  specifically  concerned  with 
the  relation  of  TransMAPS  to  its  host  computer  system.  These  include 
software  installation,  modification,  and  maintenance  activities.  The 
intended  audience  consists  of  systems  personnel  charged  with  support  of 
TransMAPS  at  their  site  and  others  who  wish  to  understand  MAPS  at  a 
detailed  level  of  'how  it's  done'. 

1.2  Maintenance  Manual  Organization 

The  information  necessary  for  initial  installation  of  TransMAPS  at  a  new 
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site  is  given  in  Sections  Two,  Three,  and  Four.  Section  Two  provides  an 
overview  of  TransMAPS  and  the  conditions  assumed  for  the  host  computer 
environment.  Section  Three  describes  the  extensive  file  system  which 
supports  TransMAPS  and  specifies  the  requirements  imposed  on 
communication  of  user  image  files.  Section  Four  deals  specifically  with 
questions  of  TransMAPS  installation  from  its  source  on 
computer-compatible  magnetic  tape. 

Sections  Five  and  Six  discuss  more  details  on  the  internal  structure  of 
the  TransMAPS  process  modules.  Section  Five  addresses  questions  of 
program  modification  which  may  arise  in  refining  TransMAPS  for  a 
particular  site.  Section  Six  outlines  general  program  structure 
conventions  which  should  provide  helpful  guides  in  subsequent  program 
maintenance  activities. 

Finally,  Sections  Seven  through  Thirteen  contain  complete 
COMMENT -annotated  program  listings  of  the  TransMAPS  source  code.  These 
listings  have  had  running  titles  appended  which  give  both  main  module  and 
current-routine  names.  This  should  be  an  aid  to  rapid  location  of  the 
relevant  section  for  this  deepest  level  of  detailed  documentation. 

1 .3  References 

The  material  on  initial  installation  in  this  document  is  intended  as  a 
self-contained  path  to  achieving  a  functioning  TransMAPS  system.  Beyond 
this  however,  at  the  level  of  program  modification  or  maintenance,  it  is 
assumed  that  the  reader  is  familiar  with  both  the  conceptual  basis  of 
MAPS  and  the  structure  of  the  user  option  space  in  the  TransMAPS 
package.  This  material  is  described  in  the  TransMAPS  User's  Manual  to  a 
level  adequate  for  most  purposes.  For  more  detailed  information  on 
specific  MAPS  concepts  and  processes,  the  reader  is  referred  to  the 
following  collection  of  documents: 
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SECTION  TWO 


TRANSMAPS  OVERVIEW 

This  section  outlines  the  contents  of  the  TransMAPS  package,  its 
structure,  and  the  assumed  host  computer  environment. 

2.1  The  TransMAPS  lockage 

The  contents  of  the  TransMAPS  package  are  listed  in  Table  2-1. 

The  seven  main  program  modules  are  provided  on  computer-compatible 
magnetic  tape  in  the  form  of  both  source  code  and  object  code  files.  The 
first  six  modules  relate  directly  to  MAPS  processes.  Module  #7  provides 
a  stand-alone  image  assembly  and  annotation  capability.  This  seventh 
module  supports  display  of  MAPS  product  images  with  assembly  of 
comparative  image  frames  and  corresponding  identifying  annotation.  It 
can,  however,  also  be  used  with  other  user  Imagery  to  integrate  and  label 
related  frames  for  various  forms  of  presentation. 

The  six  MAPS  modules  further  subdivide  into  two  functional  classes.  The 
first  two  relate  to  the  MAPS  compression  phase.  Module  #1  converts  the 
raster  source  imagery  to  the  appropriate  subframe  organization  for  MAPS 
processing.  Module  #2  implements  the  actual  MAPS  micro-coding  technique 
on  a  subframe  by  subframe  basis.  This  second  module  contains  the  most 
complex  portions  of  the  interactive  user  option  space. 

The  next  four  modules  deal  with  MAPS  product  formation  from  the 
compressed  image  stream.  Module  #3  reconstructs  the  tonal  image  -  MAPS 
decompression  -  and  simultaneously  generates  a  MAPS  'resolution  image' 
which  displays  the  micro-adaptive  variable  resolution  created  by  MAPS. 


TABLE  2-1.  CONTENTS  OF  TransMAPS 


Seven  Main  Program  Modules: 


>••• 

•1 

SUSFRM 

Raster  to  Subframe  Conversion 

SF.FSV . 

SF.OBJ 

*2 

MAPS 

maps  compression 

MP.FSV  t 

NP.OBJ 

<3 

DNAPS 

maps  Decompression  6  Level  Image  F 

ormatlon 

- 

DN.TSV, 

DM. OBJ 

•  4 

ADAPT 

MAPS  Adaptive  Image  Smootnlng 

AD.FSV, 

AD. OBJ 

•  5 

OlrFER 

maps  Difference  Image  Formation  - 

DF.FSV. 

DF .OBJ 

16 

RASTER 

Suofreme  to  Raster  Conversion 

RS.FSV. 

RS.OBJ 

•  7 

ANNOTE 

Imaae  Assembly  and  Annotation 

AI.FSV, 

AI.OBJ 

Provided  on  Computer-Compatible  Tapt  (CCT)i 

fortran  iv-Pius  source  Coda  -  jc.rsv 
FORTRAN  Object  (F4P)  Code  •  x.OBJ 

Six  Data  sets: 


Annotation  Symbol-Nap  Tables 
MAPS  Compression  Test  Usage  (160  x  128) 
saaple  maps  user  Parameter  Set  (Use  with  NTEST)  - 
maps  Product  Generation  Test  Image  (120  x  128)  - 

Two  'video  Frame'  Images  (480  lines  x  624  pixels) i 
Building  scene 
IEEE  Girl 


8YMBOL.BIN 

MTEST.BIN 

MSET.B1N 

GIRL6.BIN 

BLDGIMG.BIN 

G1RLIMG.BIN 


Provided  on  Computer-Compatible  Tape  (CCT) 
maps  File  structure  with  Standard  Filenames  and  Headers: 


Source  mage  (One  Subfraae/FIXED  Record) 
User  Parameter  Set 

maps  Compression  Stream  (FIXED  Records) 
maps  BlocK/Pattern  image  (Subframes) 
maps  Resolution  Image  (Subframes) 

NAPS  Adaptively  Smoothed  linage  (Subframes) 
naps  Difference  image  (Subframes) 

Fidelity  Performance  summary  (Listing) 

NAPS  Product  Image  (Raster) 

Annotation  Symool-Nap  Tablet 
Annotated  image  (Raster) 

Annotated  Printer  Pseudo-Image  (Listing) 


INAGE.DAT 

NSET.DAT 

NAPS.DAT 

dnaps.dat 

LEVEL.DAT 
ADAPT.DAT 
ERROR. OAT 
EPRINT.DAT 
XRAST.DAT 
X  *  I.D.L.A.E 
SYMBOL. OAT 
AN1MG.DAT 
APRINT.DAT 


User  Interaction  Pre-Planning  Aids : 


naps  Planning  Form  -  Compression 

NAPS  Plennlna  Form  -  Product  Generation 

Annotation  and  image  Assembly  Planning  Form 

Documentation: 


TransMAPS  User's  Manual 
TransMAPS  Maintenance  Manual 
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Module  #4  further  refines  the  decompressed  image  through  a  MAPS-based 
adaptive  smoothing  process.  Module  #5  evaluates  the  fidelity  of  the  MAPS 
coding  through  formation  of  a  difference  image  between  the  source  and 
product  images.  Finally,  Module  #6  converts  any  of  the  subframe 
organized  MAPS  images  back  to  raster  format  for  interface  with  the 
outside  world. 

The  seven  program  modules  are  supported  by  six  data  files.  The  first, 
file  SYMBOL,  contains  the  bit  maps  which  make  up  the  source  data  for  the 
annotation  symbol  set.  Each  of  the  sixty  symbols  is  represented  by  a 
48x48  bit  map  packed  as  forty-eight  lines  of  three  sixteen-bit  words 
each.  Bit  packing  is  left  to  right  within  each  word.  Once  established 
on  the  system,  this  file  is  read  in  automatically  when  Module  #7,  ANNOTE, 
is  invoked.  The  annotation  symbols  are  then  generated  as  needed  by 
resampling  these  bit  maps  to  the  user -requested  size. 

Two  'toy'  size  images  -  files  MTEST  and  GIRL6  -  are  supplied  with  the 
package.  These  images  are  designed  for  rapid  testing  of  the  modules  and 
to  aid  with  inexpensive  exploration  of  the  space  of  user  options.  A 
sample  set  of  pre-defined  user  parameters  -  file  MSET  -  is  also  provided; 
it  is  set  up  to  be  used  with  the  MTEST  image. 

Finally,  two  'real  world'  (video  frame  size)  images  -  GIRLIMG  and  BLDGIMG 
-  are  included  to  provide  more  realistic  test  examples. 

Intermodule  communication  is  provided  by  a  set  of  twelve  standard  MAPS 
files  and  is  designed  to  be  transparent  to  the  user.  Dedicated  mnemonic 
file  names  are  used,  however,  so  that  both  user  and  systems  personnel  can 
easily  assess  status  of  the  process  following  interruption  or  deliberate 
suspension  of  a  MAPS  interactive  task. 


The  user  is  also  aided  by  a  series  of  three  'planning  forms'  which 
display  the  space  of  user  options  schematically.  These  forms  have  spaces 
for  entry  of  user-selected  options  to  assist  in  pre-planning  and 
documenting  a  MAPS  interactive  session.  Moreover,  the  planning  forms 
provide  a  convenient  guide  to  the  location  of  various  user  option 
interactions  for  the  use  of  systems  personnel. 

The  TransMAPS  package  is  completed  by  two  volumes  of  formal  documentation 
-  The  TransMAPS  User's  Manual  and  this  Maintenance  Manual. 

2.2  TransMAPS  Structure 

The  previous  section  provides  only  a  tabular  listing  of  the  contents  of 
the  TransMAPS  package.  The  key  structure  of  TransMAPS  is  presented  in 
Figure  2-1.  This  diagram  shows  the  interrelationships  among  all  of  the 
process  modules  and  data  files.  A  brief  descriptor  of  the  contents  of 
each  file  is  given  along  with  the  corresponding  standard  file  name. 

Figure  2-1  is  the  primary  portrayal  of  the  overall  organization  of 
TransMAPS. 

2.3  Host  Computer  Environment 

TransMAPS  is  intended  to  run  on  DEC  PDP-11/45,  P0P-11/70,  and  VAX 
computer  systems.  It  was  targeted  specifically  at  the  PDP-11/70  in  the 
Image  fVocessing  System  at  RADC.  The  modules  are  all  written  in  DEC'S 
FORTRAN  IV-R.US.  They  are  each  designed  to  run  under  DEC'S  RSX-11M 
Operating  System  as  single  task  loads  without  overlays.  The  file  systems 
are  such  that  they  should  be  compatible  with  either  RMS-11  or  FCS-11. 

The  TransMAPS  modules  do  not  make  use  of  the  VIRTUAL  declaration 
construct  so  a  'mapped'  memory  system  should  not  be  necessary.  Moreover, 
the  restriction  to  FORTRAN  IV- PLUS  is  thought  to  involve  only  the  use  of 


Ueer.DAT 


r-' 

K  ' 

k. 

f  ' 


Source  Raeter  Image 


MAPS  Compreeeton  Stream 


MAPS  BlockfPattern 
Subframe 


LEVEL.DAT 

MAPS  Raaolutlon  Subframe 


frame 


ERROR.DAT  T 


(Any  One) 


MAPS  Dlfferanea  Subframe 
EPRINT.DAT 


Fidelity  Performance  Lletlng 


RASTER 

j  xRA8T.DAT  C  *  -  I.D.L.A.  or  E  ) 
C  ~  MAPS  Product  Ranter 


I 


I 


8YMBOL.DAT 


UA  I  | 


Symbol-Map  Tabloo 


Li_i 


ANNOTE 


*7 


Usor.DAT 

Ueer-Buppllod  Ranter  Image 


ANIMQ.DAT 


DA  I  | 


r\ 


APRINT.DAT 


or 


Annotated  Raatar  Image 


Llna-Prlntar  Peeudo-lmage 


Procaaa  Modulo 


DIek  File 


Figure  2-1.  TransMAPS  Structure 
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the  IISHFT  library  shift  function  in  Module  #7  and  the  use  of  Integer*4 
arithmetic  for  a  few  performance  statistics  and  element  count 
accumulations.  At  some  penalty  in  execution  efficiency,  it  should  thus 
be  possible  to  modify  the  code  to  be  compatible  with  the  more  restricted 
DEC  FORTRAN  compiler  if  necessary  at  a  particular  site. 

The  user  interaction  portion  of  the  code  tacitly  assumes  a  high-speed 
channel  to  the  interactive  terminal.  Thus,  some  of  the  query  prompts 
update  rather  extended  text  with  each  user  response  to  provide  complete 
and  immediate  feedback.  If  much  slower  terminal  channels  (e.g.  low-speed 
telephone  modem)  or  hardcopy  terminals  are  to  be  employed,  these  sections 
of  the  interaction  can  be  slightly  modified  to  reduce  the  text 
redundancy.  Guidelines  for  such  changes  are  provided  in  Section  Five. 


SECTION  THREE 


TRANS  MAPS  FILES 

This  section  discusses  user  image  file  conventions,  the  formats  of 
standard  MAPS  files,  and  the  contents  of  the  MAPS  file  header. 

3.1  User  File  Communication 

DEC  FORTRAN  does  not  support  direct  magnetic  tape  access  in  any 
convenient  way.  Thus,  user-supplied  source  imagery  must  be  entered  as  a 
disk  file  for  communication  to  TransMAPS.  Furthermore,  there  does  not 
appear  to  be  any  standard  format  for  image  data  files  which  extends 
across  the  systems  on  which  TransMAPS  is  to  be  used.  Thus,  the  file 
format  for  TransMAPS  input  was  chosen  to  minimize  the  buffer  overhead 
incurred  in  the  program  modules. 

TransMAPS  assumes  that  user  raster  source  images  will  be  supplied  as 
sequential  binary  files  written  using  the  SEGMENTED  record  type.  This 
form  allows  the  physical  record  size  (and  consequently  the  buffer)  to  be 
much  smaller  than  the  largest  logical  record  size  expected.  Moreover, 
the  physical  records  are  sufficiently  small  that  file  transfer  utilities 
such  as  FLX  can  be  employed.  Because  the  types  of  source  formatting  for 
a  particular  site  or  application  are  unknown,  responsibility  for 
provision  of  the  conversion  utilities  to  establish  the  SEGMENTED  source 
raster  files  is  presumed  to  reside  with  each  site.  For  test  purposes, 
the  imagery  delivered  as  part  of  the  TransMAPS  package  ha's  already  been 
placed  in  this  form.  Thus  initial  installation  and  checkout  can  proceed 
independently  from  the  generation  of  this  image  conversion  capability. 
TransMAPS  does  accommodate  both  eight  bit  per  pixel  and  six  bit  per  pixel 
source  forms.  For  the  six  bit  sources,  the  so-called  DICOMED  format 
convention  is  assumed;  namely,  six-bit  pixels  right  justified  in 
eight-bit  fields.  This  convention  avoids  the  ’byte-swap'  complications 
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encountered  between  DEC  (lowest  byte  first)  and  many  other  computer 
systems  (most  significant  byte  first).  This  six  bit  convention  is  also 
the  standard  for  such  Imagery  at  RADC. 

3.2  MAPS  File  Formats 

File  formats  for  the  remaining  MAPS  files  are  determined  by  access  type 
and  file  content.  Mnter  listing  files  are,  of  course,  of  FORMATTED 
type.  All  raster  image  files  (input  or  output)  are  of  SEGMENTED  binary 
type.  Subframe-organized  image  files  are  of  FIXED  record  length  binary 
type  suitable  for  DIRECT  access  under  either  FCS-11  or  RMS-11  file 
systems.  The  MAPS  compressed  Image  stream  is  also  written  as  a  FIXED 
record  length  binary  file  with  records  of  512  bytes.  Finally,  files 
containing  user  parameter  sets  and  the  symbol  table  bit  maps  are 
expressed  as  SEGMENTED  binary  files. 

All  MAPS  data  files  with  their  mnemonic  file  names,  content  descriptors, 
and  file  type  characteristics  are  listed  in  Table  3-1. 

3.3  Standard  MAPS  File  Header 

The  various  'internal'  MAPS  image  files  -  IMAGE,  MAPS,  DMAPS,  LEVEL, 
ADAPT,  and  ERROR  -  all  require  certain  ancillary  information  in  their 
roles  of  intermodule  communication.  This  information  is  carried  in  a 
standard  MAPS  file  header  which  Is  the  first  record  in  each  file.  In 
each  case,  the  record  length  is  adjusted  to  match  the  corresponding  FIXED 
length  for  the  file.  Thus,  the  header  content  must  fit  within  the 
smallest  allowed  value  of  this  record  length  -  namely,  64  bytes. 


TABLE  3-1.  TRANSMAPS  FILES 


Pile  Characteristic*: 


Filename 

Content 

Flletype 

User 

Source  image,  Raster 

SEGMENTED 

IMAGE 

Source  image/  Suoframes 

FIXED  • 

MSET 

MAPS  user  Parameter  Set 

SEGMENTED 

MAPS 

MAPS  compression  stream 

FIXED  •* 

DMAPS 

maps  Bldck/Pattern,  Subframes 

FIXED  ♦ 

LEVEL 

MAPS  Resolution  Image,  Subframes 

FIXED  * 

ADAPT 

MAPS  Adaptively  Smoothed,  Subframes 

FIXED  * 

ERROR 

maps  Difference  Image,  subframes 

FIXED  • 

EPRINT 

Fidelity  Performance  Listing 

FORMATTED 

1RAST 

Source  Image,  Raster 

SEGMENTED 

DRAST 

maps  Decompressed  Image,  Raster 

segmented 

LRAST 

maps  Resolution  Image,  Raster 

SEGMENTED 

ARAST 

maps  Adaptively  smoothed.  Raster 

segmented 

ERAST 

maps  Difference  image.  Raster 

segmented 

SYMBOL 

Annotation  Symooi-Nap  Tables 

segmented 

User 

Emoedaed  Input  Image,  Raster 

segmented 

ANIMG 

Annotated  Imaae,  Raster 

SEGMENTED 

APR1NT 

Annotated  Pseudo-image  Listing 

FORMATTED 

*  'FIXED*  Subframe  Records  are  64,  256,  or  1024  Byte* 
♦*  'FIXED'  Compression  stream  Records  are  512  Bytes 


Currently,  the  header  Information  occupies  the  first  fifty  of  these 
locations  and  Is  organized  as  follows: 

Standard  maps  Flit  Haadtri 


Bytes 

Identification: 

File  Type 

0 

IMAGE 

2 

1 

MAPS 

2 

DMAPS 

3 

LEVEL 

4 

ADAPT 

S 

ERROR 

I-D 

6 

ERROR 

I- A 

7 

ERROR 

D-A 

I«age  Name 

• 

laage  Slzat 


Llnes/Jmage 

2 

Pixels/Line 

2 

Bits/Pixel 

2 

laage  Partition: 

Subframe  Size  (8  16  32) 

2 

Subframe  Grid  (Omsquare,  lafitagger) 

2 

Subframe  Count 

4 

MAPS  Results: 


MAPStl  Count  4 

Blocn/Pattern  vector 

(1  Bit/Level «  packed  Right  to  baft)  2 
Optimal  Pattern  biases 

(bevel  t>0),  Low/High)  5*2*2  ■  20 


Future  Use: 


14 


TOTAb  64 

Thus,  there  are  fourteen  additional  bytes  available  for  future  expansion 
before  a  more  elaborate  header  structure  must  be  sought.  Note  that  a 
separate  record  Is  used  for  the  header  on  the  MAPS-compressed  data 
stream.  This,  however.  Is  not  really  necessary  since  the  division  Into 
512-byte  records  Is  arbitrary  and  asynchronous.  The  MAPS  file  header 
could  be  Incorporated  Into  the  first  fifty  bytes  of  the  first  record 
followed  Immediately  by  the  start  of  the  MAPSel  data  stream.  Only  slight 
modification  to  the  Initialization  procedures  would  be  required  to 
accomplish  this.  It  can  be  done  In  situations  where  minimum  compressed 
data  size  Is  sought. 
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As  might  be  expected,  almost  all  information  in  the  header  is  created  in 
the  first  two  modules  -  SUBFRM  and  MAFS.  The  first  two  bytes  encode  the 
type  of  data  in  the  file.  This  preserves  the  integrity  of  the  file 
contents  through  subsequent  file  name  changes.  The  next  twenty-two  bytes 
describe  the  source  image  and  its  partition  into  subframes  in  program 
SUBFRM.  The  remaining  twenty-six  bytes  characterize  the  MAPS  compression 
and  the  optimum  pattern  bias  values  needed  for  decompression.  This  data 
is  generated  in  Module  #2,  MAFS.  The  unused  header  bytes  might  be 
employed  in  the  future  to  carry  the  control  selections  used  to  create 
alternate  product  images. 
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SECTION  FOUR 


INSTALLATION 


This  section  describes  the  procedures  required  to  transfer  TransMAPS  from 
Its  source  computer-compatible  magnetic  tape  to  a  functional  system. 

4.1  FLX  File  Transport 

The  TransMAPS  software  and  support  data  resides  on  nine-track  magnetic 
tape  (density  800  bpl)  In  the  form  of  twenty  FLX  files.  These  are 
further  subdivided  Into  three  file  categories  -  seven  FORTRAN  source  code 
files,  seven  FORTRAN  object  code  files,  and  six  data  files. 

The  command  sequence  to  enter  these  files  on  the  system  is  as  follows: 

ALL  MMu:  Allocate  tape  drive 

FLX  MMu:[50,27]/LI  List  FLX  tape  contents 

(optional) 

FLX  SY:[g,m]/RS  *  MMu: [50,27 ]*.*/D0  Transfer  all  TransMAPS 

files 

PIP/LI  List  transferred  files 

(optional) 

OEA  MMu:  Deallocate  tape  drive 

Here,  'u'  Is  the  physical  unit  number  of  the  tape  drive  on  which  the 
TransMAP5  FLX  tape  Is  mounted  and  [g,m]  Is  the  UIC  (user  identification 
code)  under  which  the  TransMAPS  software  Is  to  be  Installed.  The  UIC 
under  which  the  system  was  originally  transferred  to  tape  was  [50,27]. 


The  file  names  and  sizes  which  should  appear  in  the  directory  listings 
are  as  follows: 


Fi  le 

Content 

FLX  size 

SF.FSV 

SUBFRM  FORTRAN  Source 

Code 

29 

MP.FSV 

MAPS  FORTRAN  Source 

Code 

67 

DM.FSV 

DMA  PS  FORTRAN  Source 

Code 

20 

AD.FSV 

ADAPT  FORTRAN  Source 

Code 

43 

DF.FSV 

DIFFER  FORTRAN  Source 

Code 

28 

RS.FSV 

RASTER  FORTRAN  Source 

Code 

23 

AI.FSV 

ANNOTE  FORTRAN  Source 

Code 

61 

SF.OBJ 

SUBFRM  Object  Code 

26 

MP.  OBJ 

MAPS  Object  Code 

71 

DM. OBJ 

DMA  PS  Object  Code 

30 

AD. OBJ 

ADAPT  Object  Code 

38 

DF.OBJ 

DIFFER  Object  Code 

25 

RS.OBJ 

RASTER  Object  Code 

17 

AI.OBJ 

ANNOTE  Object  Code 

67 

SYMBOL.BIN 

Symbol  Map  Tables 

37 

GIRL6.BIN 

Girl  6-bit  'Toy'  Image 

34 

MTEST.BIN 

MAPS  Logic  Test  'Toy' 

Image 

46 

MSET.BIN 

Sample  User  ferameter 

Set 

2 

BLDGIMG.BIN 

•Building  Scene'  Video  Image 

631 

GIRLIMG.BIN 

'IEEE  Girl'  Video  Image 

631 

4.2  Data  Files 


The  six  TransMAPS  data  files  are  all  transferred  under  file  type  '.BIN'. 
Each  of  these  files  is  in  SEGMENTED  binary  format.  The  choice  of  the 
'.BIN'  type  allows  FLX  to  default  automatically  to  Formatted  Binary 
mode.  Note  that  in  the  FLX  tape  versions  of  the  files,  binary  headers 
and  checksums  are  added  to  the  data.  This  means  that  the  FLX  file  size 
for  such  files  will  typically  be  somewhat  larger  than  the  corresponding 
Files-11  versions.  These  differences  will  be  reflected  in  the  file  sizes 
reported  when  PIP  is  used  to  list  the  directory  after  file  transfer.  In 
the  Files-11  disk  environment,  for  example,  the  'video'  image  sizes  are 
each  608  blocks. 
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4.3  FORTRAN  Source  Code  Files 


The  FORTRAN  source  code  for  the  seven  TransMAPS  modules  was  transferred 
with  an  arbitrary  file  type  of  '.FSV'.  This  was  done  to  permit  retention 
of  the  original  version  of  the  source  code  if  later  versions  are  created 
and  then  all  but  the  most  recent  eliminated  by  a  PIP  purge  switch. 

4.4  FORTRAN  Object  Code  Fi les 

The  object  code  for  the  seven  TransMAPS  modules  was  produced  by  the 
FORTRAN  IV- PLUS  compiler  (F4P)  under  RSX-11M  on  a  PDP-11/70.  Here,  the 
standard  file  type,  '.OBJ'  was  used  for  the  transfer.  This  file  type  is 
another  of  the  small  class  of  names  for  which  FLX  correctly  defaults  to 
the  Formatted  Binary  mode. 

4.5  File  Renaming  and  Protection 

Note  that  for  both  the  source  and  object  code  files,  the  file  names  have 
been  shortened  to  two-character  mnemonics.  Experienced  users  will  find 
these  short  names  useful  in  reducing  the  keystrokes  needed  to  invoke  the 
processes  during  interactive  execution.  Inexperienced  users,  however, 
will  probably  prefer  the  security  of  the  longer  mnemonics.  Thus,  it  is 
suggested  that  the  '/EN'  switch  be  used  with  PIP  to  enter  both  the  full 
and  short  versions  of  the  file  name  as  synonyms  in  the  file  directory. 
This  probably  need  be  done  only  for  the  task  files,  type  '.TSK',  after 
they  have  been  generated. 

The  program  modules  will  expect  the  data  files  to  exhibit  type  '.DAT*. 
Thus,  the  '.BIN*  files  should  all  be  renamed  using  the  PIP  switch  '/RE'. 
Alternatively,  the  * .BIN*  files  can  be  retained  as  backup  and  copies 
created  by  PIP  with  a  file  type  of  '.DAT'. 


In  addition  to  or  as  an  alternative  strategy  to  protecting  the  key 
TransMAPS  files  by  using  multiple  copies  with  different  names,  the 
explicit  protection  status  of  the  files  can  be  changed  via  the  PIP  switch 
VfR*  with  appropriate  subswitches.  The  source  code  files  and  the 
critical  data  files  (SYMBOL.DAT,  MTEST.DAT,  and  GIRL6.DAT)  can  all  be 
changed  to  read-only  through  the  switch/subswitch  sequence 
'/ (R/SY:R/0W:R/GR:R/W0:R*.  The  sample  user  parameter  set  file,  MSET.DAT, 
can  be  given  deletion  protection  by  replacing  the  ' :R •  entries  with 
':RWE'.  Read-only  protection  can  also  be  applied  to  the  '.TSK'  task 
files  once  they  have  been  built  into  the  system.  Such  protection 
redefinition  should  help  to  insure  that  the  functional  package  is  not 
inadvertently  deleted  during  file  maintenance  operations  where  'wild 
cards'  are  sometimes  used  in  some  of  the  file  specification  fields. 

4.6  frogram  Compilation 

In  principle,  task  building  could  proceed  directly  from  the  set  of 
TransMAPS  object  code  files  provided  as  part  of  the  system.  At  new 
sites,  however,  it  is  probably  safer  to  recompile  the  FORTRAN  source 
code.  This  is  done  for  each  of  the  seven  modules  by  the  command  line: 

F4P  File. OBJ, File. LST=F11e.FSV  or  F4P  File,File«File.FSV. 

Here,  'File'  takes  on  the  'values'  SF,  MP,  DM,  AD,  DF,  RS,  and  AI.  Note 
that  this  compilation  string  produces  a  source  code  listing  with  a 
cross-reference  map  as  well  as  the  object  code  file  for  each  module. 

4.7  Task  Building 

Following  compilation,  each  module  must  be  'task  built*  Into  a  loadable 
form.  Task  building  of  most  of  the  TransMAPS  modules  also  requires 
exercise  of  some  of  the  'TKB '  options  to  change  various  default  settings. 


The  general  sequence  and  the  specific  options  are  outlined  In  the 
following  tabulation: 


Task  Build  optional 


Control  Soqutncot 


>TKB  <cr> 

TKB>  tosk/FP»oopaob)tct  <cr> 
TKB>  /  4er > 

ENTER  OPTIONS  I 
Tkb>  optlonlonl  <er) 

TKB>  optlon2«n2  <cr> 

TKB>  //  <cr> 


Progroo  Modulo  Options  kcqulrod 


SUBFRM 

(SF) 

MAXBUF>1024 

MAPS 

(MP) 

MAXBUFB1024 

OMAPS 

(DM) 

N AXBUF>1 024 

ADAPT 

(AD) 

MAXBUFB1024 

DIFFER 

(OF) 

MAXBUF>1024 

ACTFII*«5 

RASTER 

(RS) 

MAXBUFB1024 

ANNOTE 

(AI) 

Non* 

Note  that  all  but  one  of  the  options  Involves  increasing  the  maximum  file 
buffer  size  to  accommodate  the  largest  expected  FIXED  record  length  In 
the  subframe~organ1zed  files.  The  ACTFIL  Increase  In  the  DIFFER  module 
(from  the  default  value  of  four)  Is  required  by  the  addition  of  the 
performance  evaluation  listing,  EPRINT.DAT,  to  the  normal  set  of  Image 
data  files. 

It  might  also  be  noted  that  a  shorter  task  build  command  can  be  used  with 
the  ANNOTE  module  since  no  TKB  options  are  required  there.  The 
appropriate  command  line  takes  the  following  form: 


TKB  AI.TSK/FP,AI.MAI*AI.08J  or  TKB  AI/FP.AI-AI. 


The  * /F P*  switch  which  shows  up  on  the  task  file  in  all  cases  here  is 
used  to  invoke  the  'Floating  ft)int  Processor'.  Under  some  versions  of 
RSX-11M,  this  switch  is  required  even  if  the  module  contains  no 
instructions  involving  floating  point  processes.  Failure  to  include  this 
switch  is  not  detected  at  task  build  but  generates  run  time  error  #2: 

"TASK  INITIALIZATION  FAILURE". 

4.8  Test  and  Verification 

Once  the  seven  modules  have  undergone  task  building  and  the  data  files 
have  been  renamed  (or  copied)  to  type  '.DAT',  the  TransMAPS  software 
should  be  ready  for  application.  Several  quick  tests  can  be  run  to 
verify  the  system.  A  suggested  sequence  to  check  the  interface  modules 
proceeds  as  follows: 

•  RUN  SF  on  GIRL6.DAT  to  convert  the  120  line  by  128  pixel 

by  6  bit  raster  image  to  8  bit  subframe 
form; 

•  RUN  RS  on  IMA6E.DAT  to  convert  the  resultant  subframe  image 

back  to  raster  organization;  and 

•  RUN  AI  on  IRAST.DAT  with  annotation  and  in  the  pseudo-image 

mode  to  replicate  the  output  shown  in 
Figure  4-1. 

This  process  will  verify  operation  of  these  three  modules  and  will 
exercise  the  SYMBOL.DAT  bit  map  tables.  It  also  provides  immediate 
visual  confirmation  via  the  line  printer  even  on  systems  where  no  other 
image  display  is  available.  Note  that  the  printer  should  be  switched  to 
an  eight-1 ine-per-inch  mode  to  more  closely  approximate  square  pixels  (an 
8:10  ratio  rather  than  6:10). 

The  IMAGE.DAT  file  for  the  girl  'toy'  image  can  also  be  used  to  test  the 
various  processes  directly  related  to  MAPS.  Here  it  is  suggested  that 


some  or  all  of  the  examples  in  Section  Nine  of  the  User's  Manual  be 
reproduced.  8ecause  of  the  small  image  size,  such  runs  go  very  quickly 
and  provide  immediate  feedback  via  the  printer. 

Finally,  the  detailed  MAPS  logic  can  be  verified  with  the  diagnostic 
image  MTEST.DAT  as  displayed  in  Figure  4-2.  Examples  of  the  use  of  this 
image  are  presented  in  Section  Eight  of  the  User's  Manual.  The  sample 
user  parameter  set  on  file  MSET.DAT  can  be  used  in  conjunction  with  this 
image  to  check  and  demonstrate  the  macro-fidelity  control  capabilities  of 
TransMAPS.  The  user  options  can  be  reviewed  and  updated  to  implement 
various  combinations  of  the  following  diagnostic  tests: 


Compression-Logic  Diagnostic  Tests: 

Image  Partition  and  Macro-Fidelity  Control: 

Input  Image  Line  and  Pixel  Skips 
Subframe  Pnaslno  (Square  and  Staggered) 
Macro-Partition  Croup  Assignment 

Micro-Fidelity  control: 

Zigzag  sequencing 

Contrast  Control  as  a  Function  of  Transition  Level 
Contrast  Control  as  a  Function  of  Contrast  Type 
Pattern  Code  Asslgnaent 

Gray-Scale  Manipulation: 

Contrast  Space  Ouad  Sort 
Intensity  Space  Ouad  Sort 
Intensity  Reset  Asslgnaent 


Successful  completion  of  such  checks  should  then  insure  an  operational 
MAPS  compression  capability  suitable  for  further  exploration  or 
functional  image  data  base  preparation. 
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SECTION  FIVE 


MODIFICATION 

This  section  discusses  three  known  circumstances  where  TransMAPS 
modifications  might  be  desired  -  default  parameter  changes,  accommodation 
of  interactive  terminal  limitations,  and  system-specific  code  constraints. 

5.1  Default  Settings 

TransMAPS  contains  an  extensive  space  of  user  options  and  each  option 
generally  has  some  preset  default  selection.  As  experience  with  the 
package  grows  or  as  typical  image  characteristics  emerge  at  a  particular 
site,  it  may  prove  advantageous  to  change  some  of  these  default  parameter 
settings.  For  example,  it  may  be  found  that  a  particular  image  frame 
size  is  encountered  on  a  regular  basis.  In  this  instance,  the  default 
line  count  and  pixel  count  for  the  source  imagery  might  be  set  to  this 
size.  As  another  example,  a  different  standard  subframe  partition  may  be 
best  for  a  large  class  of  images  and  the  corresponding  controls  can  be 
selected  for  the  default.  Or  again,  a  different  set  of  contrast  control 
generator  parameters  (taper,  step  fraction,  or  step  bias)  may  be  desired 
for  'normal'  operation. 

In  order  to  support  such  changes,  the  default  parameters  for  each  module 
have  been  collected  and  placed  together  near  the  beginning  of  the  user 
interaction  subroutine  for  that  program.  Moreover,  to  make  these  default 
settings  easy  to  locate,  the  relevant  program  lines  have  been  'flagged' 
with  on-line  COMMENTS  of  the  form  '!  Default'.  In  order  to  effect  a 
default  change,  the  system  personnel  need  merely  isolate  the  appropriate 
setting  in  the  source  code,  modify  its  value,  recompile  the  module,  and 
rebuild  the  resultant  task. 
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5.2  Hard«copy  or  Low-baud-rate  Terminals 


TransMAP5  has  been  Implemented  to  give  extensive  feedback  In  the  user 
Interaction  by  providing  Immediate  update  and  display  of  user  option 
selections.  In  addition,  extended  prompts  have  been  used  to  remind  the 
user  of  the  range  of  choices  available  at  various  points.  This  strategy 
is  very  helpful  In  a  system  with  fast  communication  channels  and  video 
rate  terminal  displays.  However,  slow  channels  such  as  low-speed  phone 
lines  or  hard-copy  terminals  such  as  tele-type  or  DEC -writer  are  less 
satisfactory  for  this  approach  because  of  their  long  response  time. 

To  reduce  user  frustration  in  such  environments,  it  is  probably  desirable 
to  restructure  the  interaction  to  provide  updates  or  complete  prompts 
less  often.  Reduced  frequency  of  output  is  recommended  In  the  following 
three  areas: 

In  MAP5  -  Rresent  the  updated  image  macro-fidelity  partition 
matrix  only  after  the  user  has  signalled  that  all 
desired  line-editing  is  complete; 

In  HAPS  -  Resent  the  updated  micro-fidelity  control  parameters 
and  corresponding  threshold  matrix  only  after  a  user 
signal  that  editing  is  complete;  and 

In  ANNOTE  -  ft-esent  the  allowed  character  set  only  once  before  the 
definition  of  the  first  annotation  message,  not  as  a 
prompt  to  every  message  text  definition. 

Other  user  communications  which  could  be  shortened  are  those  in  ANNOTE 
which  define  the  message  orientation  and  the  message  length.  Note  that 
in  the  slowest  interaction  -  the  hard-copy  terminal  -  the  prior  copy 
itself  is  available  for  review.  Thus,  reissue  of  prompts  is  required 
much  less  than  in  a  faster  but  more  volatile  soft-copy  environment. 


5.3  System- Specific  Code 


Two  known  constructs  specific  to  FORTRAN  IV-R.US  were  used  in  TransMAPS. 
If  it  is  necessary  to  transport  the  package  to  a  system  where  only  the 
FORTRAN  compiler  is  supported,  these  constructs  would  have  to  be 
simulated  by  less  efficient  code. 

The  first  limitation  is  restricted  to  Module  #7,  ANNOTE,  where  the 
library  shift  function,  IISHFT,  is  used  in  the  symbol  bit-map  resampling 
processes.  The  shifts  could  be  replaced  by  multiplies  and  divides  with 
powers  of  two.  However,  the  bit-map  tables  should  probably  be  redefined 
as  forty-eight  lines  of  six  bytes  each,  rather  than  as  forty-eight  lines 
of  three  sixteen-bit  words  each.  This  is  the  first  step  in  circumventing 
the  problems  of  sign  interpretation  and  overflow  in  the  high-order  bits 
of  the  Integer*2  words.  Note  that  each  byte  should  first  be  transferred 
to  the  lower  portion  of  a  normal  integer  (two  bytes)  and  sign-corrected 
before  any  of  the  arithmetic  operations  (pseudo-shifts)  are  carried  out. 
Note  also  that  the  'byte-swap'  problem  must  be  accommodated  since  the 
bit-maps  are  stored  left  to  right  in  the  original  two-byte  words. 

The  second  construct  involves  use  of  Integer*4  arithmetic  at  several 
points  where  performance  statistics  or  element  counts  are  accumulated. 
Since  the  ordinary  FORTRAN  compiler  supports  the  Integer*4  data  type  but 
only  allows  Integer*2  arithmetic  on  such  variables,  all  Integer*4 
arithmetic  constructs  must  be  converted  to  compound  Integer*2  processes 
with  extensive  overflow  checking.  Should  such  conversions  be  needed,  an 
attempt  has  been  made  to  flag  all  lines  containing  Integer*4  arithmetic 
with  on-line  COMMENTS  of  the  form  '1  1*4'.  These  flags  should  at  least 
help  to  localize  the  conversion  process. 
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SECTION  SIX 


MAINTENANCE 

This  section  describes  common  features  among  the  program  modules  in  order 
to  provide  a  framework  for  understanding  the  overall  philosophy  of 
implementation  used  in  TransMAPS.  This  information  should  provide  useful 
guidance  for  any  necessary  software  maintenance  activities  on  the  package. 

6.1  Generic  Rrogram  Structure 

All  seven  principal  TransMAPS  modules  have  essentially  the  following 
overall  structure: 

Generic  program  structure: 

User  interaction  -  Subroutine  USER*  (x  »  I,N,D,A,E,R) 
rile  Establishment  -  Subroutine  FILES*  (x  a  i,h,d,a,e,r) 
Process  Initialization  -  Subroutine  SETUP*  (x  «  i,n,d,a,E,R) 
principal  loop  on  Subframes  or  Lines 


Each  program  contains  three  main  preprocess  steps  -  user  option 
interaction,  opening  and  positioning  of  files,  and  initialization  of 
tables  and  variables.  The  names  for  the  primary  subroutines  which 
implement  these  preprocesses  also  exhibit  a  consistent  convention  - 
USERx,  FILESx,  and  SETUf*.  Here,  'x*  is  a  single-character  mnemonic  for 
the  host  module  which  calls  the  routine.  Note  that  the  calling  order  for 
these  preprocesses  does  vary  among  the  modules  since  the  file  header 
Information  is  needed  to  direct  the  user  interaction  in  some  cases,  while 
the  user  interaction  selects  the  relevant  files  in  others.  Such  usage  is 
clear  from  context  in  the  actual  program  listings. 


The  body  of  each  program  is  then  typically  a  loop  which  iterates  on  lines 
or  subframes  within  the  image(s).  Both  the  preprocesses  and  the  body  of 
each  program  are  further  modularized  at  points  of  natural  process 
division.  This  partitions  the  implementation  into  'graspable'  chunks 
with  an  average  routine  length  of  less  than  fifty  lines  including 
continuations  but  excluding  COMteNTs.  Both  the  number  of  subroutines  and 
the  overall  task  length  for  each  module  are  listed  in  the  following 
tabulation: 


Module  Characteristic** 


Program 

Subroutines 

Task  Length 

SUBFRM 

6 

31936 

MAPS 

IS 

31488 

DMAPS 

6 

18720 

ADAPT 

10 

27968 

DIFFER 

S 

25312 

RASTER 

5 

29664 

ANNOTE 

14 

31840 

Note  that  with  the  exception  of  Module  #3,  DMAP5,  all  of  the  programs  use 
a  large  fraction  of  the  available  32K  task  space.  Indeed,  three  of  the 
modules  just  fit  within  the  constraint  imposed  by  the  sixteen  bit  word 


6.2  Integrated  User  Interaction 


In  general,  the  user  interaction  portions  of  the  code  were  not  further 
partitioned  into  smaller  chunks.  In  this  area,  it  was  felt  that  the  flow 
of  the  interaction  was  easier  to  follow  if  it  were  not  distributed  among 
several  small  routines. 

The  sequence  of  interactions  tends  to  exhibit  a  natural  punctuation. 
Typically,  the  definition  of  each  user  option  or  parameter  proceeds 
through  a  sequence  of  fairly  well-defined  steps.  First,  the  current 
value  (initially  the  default)  is  checked  for  consistency  with  parameters 
defined  previously  in  the  interaction  and  reset  as  necessary.  Next,  the 
user  is  prompted  with  the  parameter  under  consideration,  its  current 
value,  and  its  current  allowed  range  (if  applicable).  This  prompt  is  in 
the  form  of  a  query  to  which  the  user  can  respond  with  either  a  new  value 
or  'no  change'  as  desired.  The  user's  response  is  then  used  to  update 
the  parameter  and  it  is  again  checked  and  corrected  for  consistency  with 
the  allowed  range.  The  interaction  then  proceeds  to  the  next  option  or 
parameter.  Thus,  the  code  comes  naturally  in  a  sequence  of  easily 
grasped  packets. 

In  the  TransMAPS  implementation  of  the  user  interactions,  the  packets  are 
further  set  out  by  indenting  the  consistency  checking  operations. 
Moreover,  the  FORMAT  statements  containing  the  query  communications  are 
placed  at  the  location  of  the  corresponding  packets  (rather  than  being 
collected  at  the  beginning  or  end  of  the  routine).  These  FORMAT 
statements  then  serve  as  integral  documentation  of  the  interaction  and 
the  flow  of  code  need  not  be  interrupted  with  separate  COMMENTS. 

6.3  Subroutine  Communication 

Modularization  in  MAP5  is  intended  more  to  give  conceptual  organization 
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to  the  process  than  to  isolate  multiple-use  segments  of  code.  The  flow 
is  characterized  by  a  sequence  of  processes  on  a  common  body  of  data 
using  common  control  parameters.  Thus,  formal  parameters  to  accommodate 
varying  points  of  application  are  not  needed  for  subroutine  transfer. 

The  data  and  control  parameters  are  then  conveniently  organized  into 
named  COMMON  blocks  for  interroutine  communication. 

These  labeled  COMMON  blocks  serve  to  give  further  structure  to  the 
process  and  to  provide  mnemonic  groupings  in  the  data  and  parameter 
spaces.  Indeed,  such  blocking  provides  the  organizing  principle  for 
construction  of  an  effective  DATA  DICTIONARY  for  each  module.  This 
information  is  then  documented  by  including  it  in  the  program  COMMENTS. 

6.4  Intra-  R-ogram  Documentation 

For  a  capable  programmer,  the  flow  of  code  itself  is  the  key 
documentation  in  a  program  and  extensive  in-line  COMMENTS  often  prove 
distracting.  Hence,  a  consistent  pattern  of  header  COMMENT  blocks  has 
been  adopted  for  the  internal  documentation  of  the  TransMAPS  modules.  An 
extended  block  is  given  at  the  beginning  of  each  of  the  seven  main 
modules  with  abbreviated  headers  given  in  each  of  the  other  routines. 

The  generic  formats  for  these  headers  are  summarized  in  Table  6-1. 

Note  that  the  main  block  contains  a  brief  process  descriptor,  file 
communication  definitions,  a  user  interaction  outline,  a  'structured' 
process  hierarchy,  and  a  data  dictionary.  The  subroutine  headers  contain 
a  brief  description  of  purpose  plus  the  CALLing  links  to  and  from  the 
routine. 

The  remaining  seven  sections  of  this  manual  present  the  detailed  listings 
of  this  annotated  TransMAFS  source  code. 


Table  6-1.  GENERIC  HAPS  PROGRAM  COMMENTS 


COMMENT  Formats: 


Principal  Module  Headers: 


C 

C  . . . 

C  I  I 

C  I  TransMAPS  Module  #n:  process  descriptor  l 
C  I  I 

c  - - — ♦ 

c 

C  Control  Data  Corporation  -  1982 

C 

C  Files:  Unit  Name  Content  Froa/To  Type 

C - 

C  In/Out  n  zzzzz  descriptor  module  SEGMENTED 

C  or  DIRECT 

C  or  FIXED  SEO. 

C  or  FORMATTED 

C 

C  user  interaction: 

C  — - - - — 

C  principal  Interactive  parameter  groups 

C 

C  Program  structure: 

C  —————— 

C  suoroutlne  calling  hierarchy  with  brief  process  outline 

C 

C  common  Block  Communication: 

c  —————————— - — 

C  /blockname/  descriptor  length  (i»2  words) 

C  host  routine  names 

C 

C  variable  (datatype)  descriptor 

C 

C  (These  lists  provide  a  module  data  dictionary) 


C  order  conventions  or  geometry  definitions  (If  appropriate): 
C  — — — — - ........................... - ..... - 

Subroutine  Heeders: 


C 

C  Purpose:  brief  process  description 
C 

C  CALLed  from:  calling  routine  name(s) 
C 

C  CALLS :  called  routine  name(s) 

C 

C  geometry  definitions  if  appropriate: 
C- - - - - - - - 

On-line  Flags: 


Expression  Comment  Function 


1  Default  (default  values  set  in  userx) 

i  1*4  (four-byte  Integer  arithmetic) 
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SECTION  SEVEN 


TRANSMAPS  MODULE  #1 :  RASTER  TO  SUBFRAME  CONVERSION 


7.1  Rrogram  Characteristics 


Rrogram  Names:  SUBFRM  or  SF 


Subroutines:  USERI 

filesi 

SET  U  PI 
SQUARE 
STAGGR 
LINE  IN 

Files:  User.DAT  (input  user  raster) 

IMAGE.DAT  (output) 


Task  Build  Options:  MAXBUF  «  1024 


Task  Size:  31936 


7.2  Source  Listing 


The  COMMENT-annotated  source  listing  for  SUBFRM  follows: 
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nonnononoonoonnoonnoonooononnononnoonoooooooooonnnnno 


Raster  to  Subtrees  Conversion:  TrensMAPS  1*1 


SUBFRM 


PROCRAM  SUBFRM 


I 

I  TransMAPS  Nodule  tit  Raster  to  subfraae  conversion 
I 


♦ 

I 

I 

I 


Control  Data  Corporation  -  1982 


Flies:  unit  Naae 

Content 

Froa/To 

Type 

In  2  User 

Out  3  IMAGE 

source  raster  laage 
source  laage,  subfraaes 

User 

MAPS 

or  differ 

or  RASTER 

SEGMENTED 

DIRECT 

User  Interaction: 

In  subroutine  USERI 

Source  Image 
Source  laage 
Source  Image 
Source  Image 

Identification 

Position  Specification 

Size  Specification 

Partition  Specification 

Program  structure: 

PROGRAM  SUBFRM 

call  useri  Specify  laage  naae,  position,  size,  partition 
CALL  FILESI  Open  and  position  Input  file,  open  output  file 
CALL  sctupi  Characterize  laage  partition  and  padding 
IF  square  grid: 

CALL  SQUARE  Convert  restart  8x8  16x16  32x32  subfraaes 
Loop  on  rows  of  subfraaes  In  line  direction 

Loop  on  8-llne  swathes  within  subfraae  rows 
CALL  LIMEIN  8  calls,  line  Input,  6-8  bit 
Loop  on  subfraaes  In  pixel  direction 

Input  prior  partial  subfraae  (If  16  32) 
Update  subfraae  with  8  line  segaents 
Output  updated  subfraae 

or  IF  staggered  grid: 

Call  STAGCR  Convert  raster:  8x8  staggered  subfraaes 
Loop  on  lines 

CALL  L1NEIN  Input  next  line,  6-8  bit  conversion 
Loop  on  subfraaes  coapleted  on  this  line 

Extract  subfraae  froa  recirculating  buffer 
Output  subfraae 


COMMON  Block  Communication: 


.Blank.  Raster  laage  input  data  Length:  16128 

SUBFRM,. SQUARE, STAGCR, LIMEIN 

1BUF (4032,8)  (Byte)  Block  or  recirculating  8-iine  buffer 
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Raster  to  Subframe  Conversion:  TransHAPS  1-2 


SUBFRN 


/HEADER/  Standard  MAPS  file  header 

SUBFRN, USERI , FILES 1 , SETUPI 


Length:  32 


c 

IF1LE 

(1*2] 

File  type 

c 

INANE ( 8 ) 

(Byte] 

User-selected  image  naae 

c 

NL 

(1*2] 

Number  of  lines  in  source  image 

c 

NP 

[1*2] 

Number  of  pixels  in  source  image 

c 

NB 

(I*2J 

Number  of  bits/pixel  in  source  image 

c 

KSF 

(1*2) 

Kind  of  subframe  8x8  16x16  32x32 

c 

IGRD 

(1*2) 

Subframe  grid:  square(0)/staggered(l ) 

c 

NS 

(1*4] 

Total  subframe  count 

c 

MC 

(1*4) 

MAPSel  count 

c 

MIXBP 

(1*2) 

Packed  block (Q) /pattern ( 1 )  mode  (rt-lft) 

c 

1BV (5, 2 ) 

11*2] 

Optimal  pattern  biases  by  level, low/high 

c 

IPAD( 7 ) 

(1*2) 

Space  for  future  extension 

/IMAG1N/  Source  file  and  poaitlon  data 
US£KI,FILES1, SETUPI 


Length:  7 


FILNAM(IO)  (Byte]  Source  ratter  file  naae 

LSKP  (1*23  Lines  to  skip  into  source  raster 

kskp  d*2’  Pixels  to  skip  into  source  raster 


/LINEUP/  Line  input  control  parameters 

SETUPI , SQUARE, STAGGR, LINEIN 


Length:  7 


C 

IP 

(1*21 

initial  pixel  to  retain  (KSKP+1) 

C 

1PR 

(1*2) 

Total  input  pixels  to 

read 

C 

LP 

(1*2] 

Last  pixel  with  subframe  completion  pad 

C 

NBT 

(1*2) 

Bit  count  flag  6(1)  or 

8(0) 

c 

L8 

(1*21 

Current  line  mod  8 

raster  Inc 1  skips 

c 

LK 

(1*2) 

Current  line  in  input 

c 

LSKPT 

(1*21 

Lines  skipped  (copy  of 

LSKP) 

c 

c 

/SFDATA/ 

Subframe  output 

data 

Length:  512 

SETUPI, SQUARE, STAGGR 


ISF (1024) 


(Byte]  Subfraae  image  assembly  array 


/SFTEMP/  Subframe  and  image  size  parameters 
SETUPI,  SQUARE,  STAGGR,  UNEIN 


Length:  6 


C 

NLT 

(1*2) 

Number  of  lines  in  image 

C 

NPT 

(1*2] 

Number  of  pixels  in  image  vlth  pad 

c 

KSFT 

(1*2) 

Subframe  size:  edge 

c 

KSQT 

(1*2) 

Subframe  size:  pixel  count 

c 

NST 

(1*4] 

Subframe  count 

/SOR/ 


Square  grid  partition  controls 
SETUPI, SQUARE 


Length:  3 


NPS 

NLS 

NSWTH 


(1*23  Number  of  pixel-direction  subframes 

d*2]  Number  of  line-direction  subframes 

(1*2]  Number  of  swathes/subfraae  (1  2  4) 
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Raster  to  Subfraae  Conversions  TransMAPS  1*3 


SUBFRM 


/STGR/  Staggered  grid  partition  control*  Length:  24 

SETUP! ,STAGGR 

NPSL(8)  (1*2]  Nuaber  of  staggered  cubfraaes  In  pixel 

direction  for  each  startline  sod  8 
NLSL(B)  (1*2]  Nuaber  of  staggered  subfraaes  in  line 

direction  for  each  startline  aod  8 
XP5L(8)  (1*2]  Initial  pixel  of  first  staggered 

subfraae  tor  each  startline  aod  8 
C 

c— ................................................................. 

COMMON  IBUF (4032,8) 

BYTE  IBUr 

COMMON  /HEADER/  IFILE , INAMEC 8 ) , NL, NP , NB, KSF , IGRD ,NS , MC , MIXBP , 

*  IBV(5,2), IPAD ( 7 ) 

BYTE  INANE 
INTEGER**  NS , MC 
CALL  USERI 
CALL  FILES1 
CALL  SETUPI 
TYPE  500 , IN AME , NS 

500  FORMATC/, IX, 'CONVERTING  IMAGE  ',8A1,'  TO', 17,'  SUBFRAMES') 

IF(IGRD.NE.O)  GO  TO  110 

CALL  SQUARE 
GO  TO  120 

110  CALL  STAGGR 

120  CONTINUE 

CLOSE(UNIT*2) 

CL0SE(UNIT>3) 

END 


1 11-35 


Miter  to  Subfraae  conversion!  TransRAPS  1*4 


SUBFRM/USERI 


SUBROUTINE  USERI 
C 

C  Purpose!  User  Interaction  for  raster  to  subfrane  conversion 
C  source  mage  Identification 

C  Source  inage  position 

C  Source  mage  size 

C  Source  iaage  partition 

C 

C  CALLed  from  SUBFRH 
C 

C— — — .......................................................... .... 

COMMON  /HEADER/  IFILE , I NAME! 8) , NL , NP , NB, K5F, IGRD, NS, MC , M1XBP, 

♦  IBV ! 5 , 2  ) , IPAD ( 7 ) 

BYTE  INANE 
INTEGER**  NS  ,  MC 

COMMON  /IMAGIN/  FILNAM ( 1 0 ) , LSKP , KSKP 
BYTE  FlLNAM 
DIMENSION  NAMET (10) 

BYTE  NAMET, NAM&1 
EQUIVALENCE  (NAME1 ,NAMET(1 )) 

DATA  IF1LE/0/ 

DATA  INAME/8*1H  / 

DATA  NL,NP,NB,KSF,1GRD/480,624,B,8,0/ 

DATA  NS,MC,MIXHP, IBV, lPAD/2*0, 18*0/ 

DATA  FILNAM/1HF,1H0.1HR,1H0,1H0,1H2,4*0/ 

DATA  LSKP, KSKP/ 2*0/ 

DATA  MPIX/4000/ 

TYPE  500 

500  FORMAT! /, IX , 45 ( 1H*),/,1X,'*',43X»'*'»/#IX» 

♦  '*  MAPS  MASTER  TO  SUBFRAME  CONVERSION  NODULE  »', 

♦  /. IX. '*',43X, '*',/, IX, 45tlH*)) 

100  CONTINUE 

TYPE  510 

510  FORMAT!/, 3X, 'SOURCE  IDENTIFICATION!') 

TYPE  520, FlLNAM 

520  FORMAT!/, 5X, 'SOURCE  RASTER  FILENAME?  !UP  TO  9  CHARACTERS)  ', 

♦  10A1) 

ACCEPT  1, NAMET 

1  FORMAT ! 10 A1 ) 

1F!NANE1.EU.1H  )  GO  TO  130 

IF ! NAME 1 ,EU, 1H/)  GO  TO  130 

IF! ! NAME1 ,GE.1HA).AND,!NAME1,LE,1HZ))  GO  TO  110 
TYPE  530 

530  FORMAT!/, IX, '*«*  FILENAME  MUST  START  NITH  LETTER') 

GO  TO  100 

110  DO  120  Ial , 9 

FlLNAMil)sNAMET(I) 

IFCNAMET(I) . LE. 1H  )  FILNAM!1)*0 
IF!NANET!I).EQ.1H/)  FILNAM!I)«0 
IF! I • EO, 1 )  GO  TO  120 
IF 1FILN AM !!•!), £0,0)  FILNAM! 1)*0 
120  CONTINUE 


1  Default 
1  Default 
1  Default 

1  Default 
1  Default 
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Raster  to  Subtract  Conversion!  TransMAPS  1-5 


SUBPM/USERl 


130  TYPE  540, INANE 

540  FORMAT!/, 5X, 'USER  IMAGE  NAME?  (UP  TO  0  CHARACTERS)  MAI) 

ACCEPT  1 , (NAMETCl )»I*1»8) 

DO  140  1*1,8 

irCNAMETID.NE.lH  )  CO  TO  150 

140  CONTINUE 

CO  TO  170 

150  IF1NAME1.E0.1H/)  CO  TO  170 

DO  160  1*1,8 
INAME(I)sNAMETCl) 

IF(INAMEd)  «LE,  1H  )  INAME!1)*1H 
160  CONTINUE 

170  TYPE  550 

550  FORMAT!/, 3X, 'SOURCE  IMAGE  POSITION!') 

TYPE  S60,LSKP 

560  FORMAT!/, 5X, 'NUMBER  OF  LINES  TO  SKIP?' , IS, 5X, ' !/  *  NO  CHNC)') 

ACCEPT  * ,LSKP 
TYPE  570,NPIX,KSKP 

570  FORMAT! SX, 'NUMBER  OF  PIXELS  TO  SKIP?  !<' ,15, ' ) ' , 15, 4X, 

♦  '!/  •  NO  CHNG )  '  ) 

ACCEPT  *,KSKP 

IFUSKP.GE.MPIX)  KSKPBMP1X-1 
TYPE  580 

580  FORMAT!/, 3X, 'SOURCE  IMAGE  SIZE!') 

TYPE  590, NL 

590  FORMAT!/, 5X, 'NUMBER  OF  LINES  TO  PROCESS?', IS, '  !/  «  NO  CHNC)') 

ACCEPT  «.NL 
MXPsMPIX-KSKP 
IF ! NP, GT . MXP )  NPBMXP 
TYPE  600, MXP, NP 

600  F0RMAT!5X, 'NUMBER  OF  PIXELS  TO  PROCESS?  !UP  TO*, IS, ')'»I5» 

♦  '  !/  a  NO  CHNG)') 

ACCEPT  *,NP 
IF!NP.GT.MXP)  NPBMXP 
TYPE  610, NB 

610  F0RMAT!5X, 'NUMBER  OF  BITS/PIXEL?  !6  8) ' , 13 ,4X, ' !/  *  NO  CHNC)') 

IT*NB 

ACCEPT  *, IT 

IF!!IT.EQ.6).OR.!IT,E0.8))  NB*IT 
TYPE  620 

620  FORMAT!/, 3X, 'SOURCE  IMAGE  PARTITION!') 

TYPE  630, KSF 

630  F0RMAT!/,5X, 'SUBFRAME  EDGE?  !8  16  32 ) ' , 13 , 7X , ' !/  ■  NO  CHNC)') 
IT«KSF 
ACCEPT  * , IT 

IF! ! IT. EG. 8). OR.! IT. EQ. 16). OR.! IT. EO. 32))  KSF«IT 
IF! KSF . NE, 8 )  GO  TO  180 


Raster  to  Subfraee  Conversion:  TrensMAPS  1-6 


SUBFRN/USERI 


LCRD*1HN 

IFUGRD.NE.O)  LGRD«1HY 
TYPE  640 , LGRD 

640  FORMAT C  5X  » 'STAGGER  GRID?  (Y  OR  N)  ',A1) 

ACCEPT  1  ,UT 
IF(LIT.EO.IHN)  IGRD«0 
IF(LIT.EQ.IHY)  XGRD»1 
GO  TO  190 
190  IGRDsO 

190  TYPE  650 

650  FORMAT!//, 3X, 'USER  SPECIFICATION  COMPLETE: *,/,3X,2B(lH») ,//,5X, 

♦  'REVIEW?  (Y  OR  N)  N') 

ACCEPT  1 (L1T 

IFCL1T.EQ. 1HY)  GO  TO  100 

RETURN 

END 
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Raster  to  Subfraae  Conversion:  TrensRAPS  1-7 


SUBFRN/FILESI 


SUBROUTINE  F1LES1 
Purposat  Open  and  position  files 
CALLed  froa:  SUBFRM 


C— ................................... ............................... 

COMMON  /HEADER/  IFILE, INAMEC8 ) , NL. , NP, NB, KSF , IGRD,NS , MC , NIXBP, 

♦  IBV(5,2), IPAD ( 7 ) 

BYTE  INAME 
INTEGERM  NS,MC 

COMMON  /1MAGIN/  FILNAM(IO) ,  1>5KP,KSKP 
BYTE  FILNAM 

OPEN (UNIT*2, TYPE* 'OLD' ,NANE*FILNAN,FORN*'UNFORNATTED', READONLY) 
1FCLSKP.LE.0)  GO  TO  130 
DO  110  L*1,LSKP 
READ  (2,END>120,£RR*120) 

110  CONTINUE 

GO  TO  130 

120  TYPE  S0b,L 

S00  FORMAT  1/ , IX ,  '** *  EOF/ERR  AT  SKIP  bXNE',15) 

STOP 

130  CONTINUE 

bSF*(K5F*KSF)/4 

OPEN ( UN IT*3, TYPE* 'NEW', NAME* 'IMAGE ',rORM*'UNrORNATTED', 

♦  RECORDIYPE*'FIXED',RECORDSIZE*bSr, ACCESS* 'DIRECT') 

RETURN 


onnonn 


Raster  to  Subfraac  Conversions  TransNAPS  1-8 


SUBFRN/SETUPI 


SUBROUTINE  SCTUP1 

Purpose!  Establish  subfraac  partition  paraaaters 

Write  subfraac  output  file  standard  NAPS  header 

CALLed  frOBS  SUBFHN 


c— — ............................. ----------------------------------- 

CONNON  /HEADER/  IFILE , IN ANE( 8 ) ,NL , NP , NB, KST , IGRD, NS, NC , NIXBP , 

♦  IBV(5,2),IPAD(7) 

BYTE  INANE 
INTEGER**  NS,NC 

DIHEN5I0N  JHEAD(32) 

EQUIVALENCE  (JHEAD(l) , IFILE) 

CONNON  /INAGIN/  FILNANOO)  ,LSKP,KSKP 
BYTE  FILNAN 

CONNON  /LINEUP/  IP, IPR , LP,NBT,L8 , LK,LKSPT 
CONNON  /SQft/  NPS , NLS »  NS-TH 
CONNON/STGR/  NPSL(B),NLSL(8),1PSL(B) 

DINENSION  JPSL(B) , JLSL(8) 

CONNON  /SFTENP/  NLT,NPT,KSFT,KSOT,NST 
INTEGER**  NSr 
CONNON  /SFDATA/  ISFU024) 

BYTE  ISF 

DINENSION  JSF1512) 

EQUIVALENCE  ( JSF ( 1 ) , 1SF( 1 ) ) 

INTEGER**  1STAR4 

DATA  IPSL/1, 2b, 49,9,33,57, 17,41/ 

DATA  JPSL/7 ,4,1 ,6, 3, 0 , 5 , 2/ , JLSL/7 ,14,13,12,11,10,9,8/ 

DATA  JSF/51 2*0/ 

NPS«(NP-1)/KSF*1 
XPaKSKP+1 
IPRsKSKP+NP 
LP>KSKP*KSF*NP5 
NBT*0 

IFCNB.EQ.6)  NBT»1 
LSKPTaLSKP 

IF(IGRD.NE.O)  GO  TO  110 
C 

C  Square  Grid  Partition 

C 

NLS«(NL-1)/KSF*1 
ISTAR4«NPS 

NS*ISTAR4*NLS  I  1*4 

NSWTH«1 

IF(KSF.EQ.IB)  NSWTH>2 
IFCKSF.EQ.32)  NSWTH>4 
CO  TO  130 
110  CONTINUE 


non 


*•**•*'  to  Suofraae  Conversion:  TransMAPS  1-9 


SUBFRN/SETUPI 


Staggered  Grid  Partition 

NS*o 

00  120  J*l,8 
NPSLCJ)*CNPS+JP5L(J) )/8 
ZSTAR4*hPS0(J) 

HliSLC  J)*(NLtJliSL(  J)  )/8 

NS>NS+NLSL ( J ) * 1ST AR4  j  t*4 

120  CONTINUE 

130  NLTbNL 

NPT=KSF*hPS 

KSFT»K5F 

KSOT«KSF*KSF 

NSTaNS 

DO  140  J«l,32 
140  J6F (J)sJHEAD(J) 

NRXTE  C3'l)  C1SF(J),J«1,KS0T) 

RETURN 

END 
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Raster  to  Subfraae  Conversion:  TransMAPS  l-io 


SUBFRM/SQUARE 


SUBROUTINE  SQUARE 


C 

C  Purpose:  Convert  source  lmaae  raster  to  square  grid  of  subframes 
C  Loop  on  roes  of  subframes  In  line  direction 

C  Loop  on  8»llne  seatnes  within  subfraae  roes 

C  Input  next  B  lines 

C  Loop  on  subframes  In  pixel  direction 

C  Input  prior  partlally»completed  subframe 

C  Update  subfraae  with  B  line  segments 

C  Output  updated  subframe 

C 

C  CALLed  from:  SUBFRM 
C 

C  calls:  LINEIh 
C 

C— ———————— ————————— .................... 

COMMON  IBUF (4032,6) 

BYTE  IBUF 

COMMON  /LINEUP/  IP, IPK , LP.NBT.LB ,LK , LSKPT 

COMMON  /SON/  NFS , NLS , NSNTH 

COMMON  /SFTErtP/  NLT , NPT , KSFT , KSQT , NST 

INTEGER«4  NST 

COMMON  /SFOATA/  1SF(1024) 

BYTE  ISF 

INT£GER*4  KHEC.JREC 
L«0 


110 

120 

140 


210 

220 


KRECal 

DO  300  JLSal ,NLS 

DO  270  JSWTHB] ,NSWTH 
DO  140  JLINal , B 
L*L+1 

LKaLtLSKPT 

IF(L.LE.NLT)  GO  TO  120 

JPKEVbjlINM 
IFCJPREV.EO.O)  JPREVaB 
DO  110  JPIXal ,NPT 
IBUF(JPIX,JLIN)aIBUF(JPIX,JPREV) 

GO  TO  140 

LBaJLIN 

CALL  LINEIN 

CONTINUE 

JREC*KKEC 

JIP«1 

JLPaKSFT 

ISQTae*KSFT*(JSNTH-l) 

DO  260  JPS*1 , NPS 
JREC«JR£C*1 

IF(JSNTH.NE.l)  GO  TO  220 
DO  210  JSOTal ,KSQT 
ISFl JSQT)»0 
GO  TO  230 

READ  (3'JREC)  (ISF( JSOT) , JSQT*1 ,KSQT) 


1*4 
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Raster  to  Subtract  Conversions  TronsRAPS  1*11 


SUBNtN/SOUARE 


230  JSOTolSOT 

00  250  JLlNKl.S 

DO  240  JPIXoJIP, JLP 
JSOT*JSOT*1 

240  ISF(  JS0T)*1BUF(  JPIX»  JiilN) 

250  CONTINUE 

■KITE  (3'JREC)  (XSP( J80T) , JS0T»1 ,KS0T) 
JIPaJIP*KSFT 
260  ULPaJLt>*KSFT 

270  CONTINUE 

300  KRECaKREC+NPS 
RETURN 


t  1*4 
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Ritter  to  Subfraae  Conversions  TransNAPS  1-12 


SUBFRM/STAGCR 


SUBROUTINE  STAGGR 

Purposes  Convert  source  laaqe  raster  to  staggered  grid  of  subfraaes 
Loop  on  lines 

input  next  line 

Loop  on  subfraaes  coapleted  on  this  line 

Extract  subfraae  froa  recirculating  buffer 
Output  subfraae 


CALLed  froa:  subfkm 
CALLS S  L1NEIN 


110 

120 

140 


150 

140 

200 


COMMON  IBUFC4032.8) 

BYTE  IbUF 

COMMON  /LINEUP/  IP,IPR,LP,N8T,L8,LK,LSKPT 
COMMON  /STGR/  NP5L(8),NLSL(B) ,IPSL(8) 
COMMON  /SFTEMP/  NLT , NPT , KSFT, KSOT , NST 
INTEGERM  NST 
COMMON  /SFOATA/  1SF(1024) 

BYTE  ISF 
INTEGER*4  JREC 
JREC*1 
NL7*NLT+7 
DO  300  L«1,NL7 
LKaL+LSKPT 
LSTRT*L. AND. "7 
LSl»LSTRT+l 

IF(LSTRT.EO.O)  LSTRT*8 
IF(L.LE.NLT)  GC  TO  120 
JPREV*LSTRT-1 
IF(JPREV.EO.O)  JPREVaB 
DO  110  JPIXal.NPT 
1BUF( JPIX  >  LSTHT)>1BUF ( JP1X, JPREV) 

GO  TO  140 
L8*LSTRT 
CALL  L1NE1N 
IFCL.GT.l)  GO  TO  200 

DO  140  JLIN«2,8 

DO  150  JPIXal,NPT 
IBUF (JPIX, JLIN)«IBUF(JPIX,1) 
CONTINUE 

CONTINUE 

JPSL*NPSL(LS1) 

1F( JPSL.EO.O)  GO  TO  300 
JIPBIPSL(LSI) 

JLP*UIP*7 
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Rostor  to  Subtrooc  Conversions  TrsnsMAPS  1-13 


SUBFRM/STAGGK 


00  230  JPSal » JPSL 

JLXNaLSl 

J50T-0 

00  220  JLT*1 > 0 

DO  210  JPIXaJlPfOLP 
JSOTaJSQT* 1 

210  lSr<J8(inalBUr(JPIX,JLIN) 

JblMaJLIlKl 
IF(JLIN.GT.B)  JLIN-1 
220  CONTINUE 

JRECajRECt 1  1  1*4 

MR1TE  (3'JREC)  (ISftJSQT) , JS0T«1 ,KS0T) 

J1P»J1P*64 
230  OLPaJbP+bO 

300  CONTINUE 

RETURN 
END 
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RAster  to  Subfraae  Convtrslont  TransRAPS  1*14 


SUBFRN/LINEIN 


SUBROUTINE  LINEIN 

Purposes  Input  next  line  fro*  source  laage  raster  Input  tile 
Pad  line  to  integral  nuaber  of  subfraaes 
Convert  pixels  froa  6  bits  to  B  bits  If  designated 
skip  designated  nuaber  of  input  pixels 

CALLad  froat  SQUARE, STAGGR 
C 

C— — .................................  ......................  .... 

COMMON  IBUF(4032,8) 

BTTE  1BUF 

COMMON  /LINEUP/  IP, IPR , LP, NBT,L8,LK ,LSKPT 
COMMON  /SFTENP/  NLT , NPT ,  KSFT , KSQT ,NST 
INTEGER**  NST 
DIMENSION  KPX6C64) 

DATA  KPX6/0, "4, "10, "14, "20, *24, "30, "34, "40, "44, "50, "54, "60, "64 

♦  "70, "74, "100, *104, "110, *114, *120, *124, "130, "134, "140, "144, 

♦  "ISO, "154, "160, "144, "170, "174, "200, "204, "210, "214, "220, "224, 

♦  "230, "234, *240, "244, *250, "254, "260, *264, *270, *274, "300, "304, 

♦  "310, "314, *320, *324, *330, *334, "340, "344, "350, *354, "340, "364, 

♦  "370, "374/ 

READ  (2, END* 110, ERR* 110)  (IBUF(J,L8),J*1 ,IPR) 

GO  TO  120 

110  TYPE  500 , LK ,LSKPT 

500  FORMAT!/, IX, '*•«  EOF/ERR  AT  LINE'15,'  (INCLUDING*, IS, 

♦  *  SKIPS)') 

STOP 

120  DO  130  J*IPR,LP 

130  IBUF(J+1,L8)*1BUF(J,L8) 

ZPIXalP 

DO  140  JPIX*1 ,NPT 
KPIX*IBUF( IPIX  *L8 ) 

IP1X*IP1X+1 

IF(NBT.EU.O)  GO  TO  140 
KP6*KPIX.ANO."77 
KPlX*KPX6!ftP6+l) 

IBUF(JP1X,L8)*KPIX 
RETURN 
END 


140 

150 


SECTION  EIGHT 


TRANSMAPS  MODULE  #2:  MAPS  COMPRESSION 


8.1  fVogram  Characteristics 


frogram  Names:  MAPS  or  MP 


Subroutines:  FILESM 

USERM 
SETKCM 
SET  U  IN 
RMPSET 
ZIGZAG 
LVLSET 
SFMAC 
SFIN 
SFMAPS 
QDIFF 
THRESH 
MAFOUT 
LSTREC 
SUMMRY 

MSET.OAT  (input /output) 

IMAGE.DAT  (input) 
MAP5.DAT  (output) 

MAXBUF  =  1024 


Task  Size:  31488 


8.2  Source  Listing 


Files: 

Task  Build  Options: 


The  COMMENT-annotated  source  listing  for  MAPS  follows: 


maps  Compression:  TransNAPS  2-1 


MAPS 


PROGRAM  MAPS 


TransMAPS  Module  12:  MAPS  compression 


Control  Data  Corporation  -  1982 


C 

Files 

:  unit 

Name 

Content 

From/To 

Type 

c 

In/Out  l 

MSET 

User-defined  parameter  set 

MAPS 

SEGMENTED 

c 

in 

2 

IMAGE 

Source  image,  subframes 

SUBFRM 

FIXED  SEQ 

c 

Out 

3 

MAPS 

MAPSei  stream,  512  byte  rec. 

dmaps 

DIRECT 

c 

user 

Interaction:  Ir 

i  Subroutine  USERM 

c 

Macro- 

fidelity 

Control 

c 

Micro- 

fidelity 

Control 

Gray-scale  Manipulations 


Program  Structure: 


3 


PROGRAM  MAPS 

CALL  FILLS*  open  files,  read  £lle  header  for  source  Image 
CALL  userm  Specify  macro-fidelity,  micro-fidelity,  and 

gray-scale  controls 

CALL  SETKCM(K)  Establish  contrast  control  matrix,  set  K 
call  sctupm  Establish  compression  control  tables 

CALL  rmpseT  Establish  contrast  and  intensity  mappings 
call  zigzag  Establish  raster  to  .zigzag  reorder  table 
call  LVLSET  Establish  3  MAPSel/byte  level  packing 
Loop  on  subframes  (LOOPSF) 

call  sfmac(Loopsf)  Determine  macro-fidelity  position 
CALL  SFlN  Input  subframe,  map  gray  scales,  zigzag  order 
CALL  SFMAPS  maps  subframe  compression  kernel 
Loop  on  levels  (resolution) 

Loop  on  MAPSei  quads 

CALL  ODIFF  Form  contrasts,  sign-sort  vector 
call  thresh  Test  contrasts,  form  NAPSel 
Transfer  completed  MAPSels  to  output  buffer 
CALL  mapout  Output  MAPSei  stream  record 
call  lstrec  output  final  (partial)  NAPSel  stream  record 
CALL  summri  Determine  optimal  biases,  compression,  t  NSE 


COMMON  Block  Communication: 


SBLKPAT/  Block/pattern  mode  by  level 
SCTUPM, SFMAPS 


Length:  21 


LBPT(S) 
IQBP(4 , 4 ) 


Block(0)/pettcrn(l)  for  levels  1-5 
Low/High  index  by  Quadrant, Pettern 


4 


NAPS  Compression:  Trans* APS  2-2  NAPS 

C  /CNTR5T/  Functional  contrast  control  Matrix  Length:  SI 

C  SET U PM , SFMAC , SFMAPS , THRESH 

C 

C  KCMT(SO)  (1*2]  sequentially-addressed  contrast  Matrix 

C  KINDEX  d*2]  pointer  for  current  Macro-fidelity  index 

C 

C  /CONTRL/  User-interactive  input  specifications  Length:  415 

C  USEKM , SETKCM , SETUPS , RNPSET , SFMAC 

C 

C  NAC( 16(16) 

C  KCS(4) 

C  CS(4) 

C  TB(4) 

C  5F(4) 

C  SBC4) 

C  KCM(4,5,4) 

C 

C  LBP(6) 

C  KBP(2  f9) 

C  IBP( 2  r  9) 

C  IRSET 

C 

C  /GRYSCL/  Grayscale  remap  tables  Length!  4608 

C  SETUPS (RNPSET (SPIN (SFM APS (THRESH 

C 


c 

KRHPC256) 

(1*2) 

Code  to  Contrast  space  remap 

c 

IRMPC2S6) 

(1*2] 

Code  to  intensity  space  renap 

c 

r 

IDMPC4096) 

(1*21 

Intensity  to  Code  space  denap 

w 

C 

c 

c 

/header/  Standard  maps  file  header  Length:  32 

MAPS (FILES* , USERS , SETUPN , SUM  NR Y 

c 

XFILE 

(1*21 

File  type 

c 

INANE ( 8  ) 

(Byte] 

User-selected  lnage  nane 

c 

NL 

(1*2) 

Number  of  lines  in  source  inage 

c 

NP 

(1*2) 

Number  of  pixels  in  source  lnage 

c 

NB 

(1*2) 

Number  of  blts/plxel  in  source  lnage 

c 

KSF 

(1*2) 

Kind  of  subframe  8x8  16x16  32x32 

c 

IGRD 

(1*21 

Subframe  grid:  square! 0) /ste?4*red( i) 

c 

NS 

(1*41 

Total  subframe  count 

c 

NC 

(1*4] 

MAPSel  count 

c 

MIXBP 

(1*2) 

Packed  block(0)/pattern(i)  bode  (rt-ift) 

c 

IBV (5,2) 

[1*2] 

Optimal  pattern  biases  by  leveldoe/high 

c 

IPADC7) 

(1*2) 

Space  for  future  extension 

C 

C  /LVLTBL/  Resolution  (level)  code  packing  table  Length:  166 
C  SETUPS ( LVLSET, NAPOUT , LSTREC 

C 

C  LVLTC366)  (1*2)  Level  code  triplet  to  byte  conversion 

C 


(1*21  Macro-fidelity  leage  partition 
(1*2]  Micro-type:  parai*etric(0)/Matrlx(i) 

( R * 4 j  Contrast  scale  paraeeter 
(R*4)  Taper  base  paraneter 
(R*4)  step  fraction  paraneter 

(R*4J  step  bias  paraneter 

(1*2]  contrast  control  Matrices 

(Contrast ,Trans it ion, Macro-group) 
(1*21  Block(0)/pattern(i)  node  (Levcl+1) 
(1*2]  Contrast-space  renap  breakpoint  pairs 
(1*2]  intensity-space  renap  breakpoint  pairs 
(1*2)  Intensity  reset  type  (N  p  L  s  T  H) 


s 


! 


NAPS 

Compression:  TransMAPS  2- 

3 

NAPS 

C 

/NAPSSF /  NAPS 

subfraee  data  spaces 

Lengths 

4098 

C 

c 

5ETUPM,SFIN 

,SFNAPS, THRESH 

C 

NSQ 

(1*2) 

Number  of  total  pixels/subfraee 

C 

NLVL 

(1*2) 

Number  of  active  levels  (4  5  6) 

C 

IC0DEO024) 

(1*2) 

Subfraee  pixels  In 

code  (8  bit) 

space 

C 

KNTRST ( 1024 ) 

(1*2) 

Plxel/NAPSel  reeap 

to  contrast 

space 

C 

1NTENS (1024) 

(1*2) 

Plxel/MAPSel  reeap 

to  Intensity 

space 

C 

LEVEL(1024) 

(Byte) 

NAPSel  resolution 

(level)  code 

c 

c 

PATTRN (1024) 

(Byte) 

NAPSel  pattern  code 

c 

/MDATA/  NAPS 

output  buffer 

Lengths 

2S9 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MAPOUT,LSTR£C , SUNNRT 

(1*4)  index  of  most  recently  written  record 
Hi>0C  H*2)  index  of  most  recent  buffer  entry 

HSF1S12)  [Bytel  NAPSel  stream  aateably  buffer 


/NSTATS/  Accumulator*  for  optimum  bias  a  MSE 
SETUP*, SFN APS, SUNNRY 


Lengths  BO 


KOUNT(2,6)  (1*4)  Pixel  count  by  low/high, level 

DIFF(2,b)  (B*8)  Sue  of  (I-N)  by  low/nigh, level 

diffsq  (R*8)  sue  square  of  (I-N)  (source-NAPS) 

su*so  (8*8)  Sue  square  of  I  (source  intensities) 


/NTENP/  Teeporary  staglnq,  partial  eultlplets 
SETUP*, SFMAPS,NA POUT, LSTR EC 


Length:  11 


(1*2)  Multlplet  size  (4  for  8x8,  3  for  16,  32) 
(1*2)  Count  currently  In  list 
MAPSEL(b)  (1*2)  MAPS  Intensity/pattern  values 

mlvl(4)  (1*2)  maps  resolution  (level)  codes 


/QUAD/  Curren*  quad  of  MAPS  eleeents 
SFMAPS,QD1FF ,THrESH 


Lengths  17 


KT(4) 

(1*2) 

Contrast  space  quad 

ITU) 

(1*2) 

Intensity  space  quad 

NT(b) 

(1*2) 

Contrasts:  3-2,  3-1,  2-0,  1-0, 

2-1,  3-0 

LO 

(1*2) 

Location  of  quad  (zigzag  index 

of  start) 

LVLP 

(1*2) 

Level  resulting  if  quad  is  combined 

NN 

(1*2) 

Contrast-sign  sort  vector 

/RESET/ 


MSK (4) 

NORM 

NBIAS 


Intensity  reset  controls 
SETUPM.RMPSET, THRESH 


Lengths  6 


(1*2)  Activation  Masks  by  sort  order 
(1*2)  Noreallzatlon  divisor  (4  2  1) 
(1*2)  Bias  for  rounding  (2  1  0) 


4 
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MAPS  Compression:  TrensMAPS  2-4 


NAPS 


/SFCNTL/  Subframe  index  to  Macro-fidelity  Index  Length:  25 
SETUPM .ZIGZAG. SFNAC 


KSFT 

11*2] 

Subframe  size:  Edge  (B  16  32) 

K5QT 

(1*2) 

Subframe  size:  Pixel  count 

NPST 

(1*21 

Number  of  subframes  in  pixel  direction 

NPSL(B) 

(1*2] 

Number  of  staggered  subframes  in  pixel 
direction  for  each  startline  mod  6 

MPSL(B) 

(1*2  J 

Middle  pixel  of  first  staggered 
subframe  for  each  startline  mod  B 

KSFH 

(1*21 

Subframe  half  size 

FL 

(K*41 

Line  to  Macro-fidelity  index  factor 

FP 

(R*4] 

Pixel  to  Macro-fidelity  index  factor 

JGRD 

(1*2] 

Grid  type:  sguare(0)/staggered(i) 

/5FDATA/  Source  image  subframe  data  Length:  512 

SF1M 


ISF (1024)  (Byte]  subframe  input  array 

/ZIGZAG/  Subframe  raster  to  zigzag  conversion  Length:  1024 
SETUP*. ZIGZAG, SF1N 

1ZZ(1024)  (1*2]  Raster  to  zigzag  lookup  table 


Zigzag  Order  Convention: 


Line  direction 


Pixel  direction 

•  mm> 


•  ••» 

m  m  m 

mmm 

1 

1 

1 

1 

0 

1 

1 

• 

1 

1 

1 

|  • 

•  •• 

•  •• 

*  | 

1 

J 

1 

1 

2 

1 

3 

1  NAPSel  Quadrants 

1 

1 

1 

♦- 

••• 

mmm 

••• 

-♦ 

COMMON  /HEADER/  IFILE,INANE(8),NL,NP,NB,KSF,IGRD,NS,HC,N1XBP, 
♦  IBV(5,2),IPAl><7) 

BYTE  INANE 
INTEGER’S  NS.MC 

DIMENSION  JHEAD02) 

EQUIVALENCE  ( JHEAD( I ] , IFILE) 

COMMON  /MDATA/  MREC.ML0C.MSF(512) 

BYTE  MSF 
INTEGER’S  MKEC 

DIMENSION  JSF(256) 

EQUIVALENCE  ( JSF ( 1 ) , MSF( 1 ) ) 

INTEGER’S  LOOPS! 

CALL  F2LE5M 
CALL  USER* 
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haps  Compression:  TrensHAPS  2-5 


HAPS 


TYPE  500, INANE, NL,NP 

S00  F0RNAT(/,1X, 'MAPS  COMPRESSING  IHAGE  ' , BAl , ' , IS, '  LINES  BY 

♦  15,'  PIXELS') 

CALL  SETUPM 

DO  110  LOOPSF* 1 , NS  1 

CALL  SFHAC(LOOPSF) 

CALL  SFIN 
CALL  SFHAPS 
iiO  CONTINUE 

CALL  LSTREC 
CALL  SUHHRY 
DO  120  Jsl ,256 
120  JSF(J)>0 

DO  130  J«1 , 32 
130  JSFCJ)xJHEAD(J) 

NRITE  (3'1 )  JSK 

CL0SE(UNIT*2) 

CLOSE (UN IT>3 ) 


o  o  o  n  n  n  n 


MAPS  Compression:  TrensNAPS  2-6 


NAPS/FILESM 


SUBROUTINE  FILES' 

Purposes  Open  tiles,  reed  Input  heeder,  write  preliminary  output 
header 

CALLed  troas  NAPS 


COMMON  /HEADER/  IFILE, I NAME! 8) ,  NL  ,NP  ,  NB,  KST  ,  IGRD  ,NS  ,MC  »MI)IBP  , 

♦  IBV(b,2),IPAD(7) 

BYTE  INANE 
INTEGER'S  NS, MC 

DIMENSION  JHEAD( 32) 

EQUIVALENCE  C JHEADC 1 ), IFILE) 

COMMON  /NDATA/  MREC,NLOC,NSF{512) 

BYTE  MSF 
INTEGER'S  MREC 

DIMENSION  JSF ( 256 ) 

EQUIVALENCE  ( JSF C 1 ) , M6F( 1 ) ) 

OPEN CUN1 T»2, TYPE* 'OLD', NAME*' IMAGE', FORK«'UNFORMATTED' , 

♦  RECORDTYPEa'FIXED' ) 

READ  (2)  JHEAD 

OPEN (UNIT'S, TYP£«'NEM',NAME«#MAPS',F0RN*>UNF0RNATTED#, 

♦  RECORDTYPEa'FIXED* , RECORDSIZE'l 2i , ACCESS' 'DIRECT* ) 

DO  110  Jal , 256 

110  JSF(J)'0 

DO  120  Jal, 32 
120  JSF(J)aJHEAD(J) 

WRITE  (3*1)  JSF 

RETURN 

END 
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maps  Compression:  TransMAPS  2-7 


MAPS/USERM 


SUBROUTINE  USERM 

Purpose:  User  interectlon  tor  MAPS  compression 
Mode:  Quick  User  Pull 
maps  macro-fidelity  control 
maps  micro-fidelity  control 
MAPS  gray-scale  manipulations 

CALLed  from:  maps 

calls:  SETKCM 


COMMON  /CONTRL/  MAC ( 16, 16) ,  KCS( 4) ,  CS ( 4 ) , TB ( 4 ) , ST ( 4 ) , SB ( * ) , 

KCM  (4 , 5 ,4),LbP(6),KBP(2,9)»  IBPl 2 , 9) , IRSET 
COMMON  /HEADER/  IF1LE, IN AME( 8 ) , NL, NP, NB, KSr, ICRD , NS ,NC , MIXBP, 
IBV(5,2),IPAD(7) 

DIMENSION  MSET( 415  ) 

EQUIVALENCE  C  MSET , MAC ) 

BYTE  INAME 
INTEGER’S  N5,MC 
DIMENSION  MT( 16) , I A (4 ) 

DATA  CSD,TBD, SFD , SBD/20, 0,3. 0,0. 5,0.1/  1  Default 

DATA  LBP2,LBP3,LBP4,LSP5,LBP6/1,1, 0,0,0/  1  Default 

DATA  NAXK, MAXI/4095, 4095/ 

LVL«4 

IF ( KSP.EQ, 16 )  LVL*5 
IF (KSF . EQ. 32 )  LVL«6 
LT«LVL-1 
DO  10  L>1 ,16 
DO  10  1*1 ,16 

MACU,L>  =  1  i  Default 

DO  20  K*l,4 

KCS(K)*1HP 

CS(K)«CSD 

TB(K)«TB0 

SFOOaSFD 

SB(K)mSBD 

CALL  SETKCM (K) 

CONTINUE 

LBP(1)«0 

LBPC2)»LBP2 

LBP(3)»LBP3 

LBP(4)«LBP4 

LBP(5)«LBP5 

LBP(6)*LBP6 

KBP( 1 ,  1  )*0 

KBP( 2 , 1 )*0 

IBPC1,1)«0 

IBP<2,1)»0 

DO  30  Jm2,9 

KBP(l,J)m255  I  Default 

KBP(2, J)a25S  1  Default 

IBP( 1 «J)*255  1  Default 

IBP(2,d)>255  1  Default 

IRSETmlHM  (  Default 


NAPS  Coaprtsslon:  TransMAPS  2-8 


NAPS/U5ERM 


soo 

♦ 

♦ 

SIO 

♦ 

♦ 

♦ 

♦ 

1 


S20 


80 


90 

530 

♦ 

c 

c  *  *  * 

c 

too 

540 

♦ 

110 

550 

♦ 

♦ 

120 

560 

♦ 

130 

140 

ISO 

160 


TYPE  SOO 

FORNAT(/,lX,27(lH*),/,lX,'*',2SX,'«',/dX, 

'•  NAPS  COMPRESSION  NODULE  *' , 

/, IX, '*',25X.'*',/,iX. 27(18*)) 

TYPE  510 

F0RNAT(/,3X, 'USER  0P7I0N  MODES t ' , 

//,5X,'Q  -  QUICK  MODE  (SELECT  CONTRAST  SCALE  ONLY)', 

/,SX,'U  -  USER  PRE-DEFINED  PARAMETERS  PROM  PILE  NSET.DAT', 

/,SX,'F  -  FULL  OPTION  REVIEn  AND  SELECTIVE  REVISION', 

//,5X, 'MODE?  (0  U  F)  O') 

ACCEPT  1 , LIT 
FOKNAT(lOAl) 

IF(LIT.EO.IHF)  GO  TO  100 
IFUIT.EQ.1HU)  GO  TO  80 
TYPE  520,CS(1) 

F0RMAT(/,5X, 'CONTRAST  SCALE? ',F7 . 1 , 5X ,' (/  *  NO  CHNG)') 

ACCEPT  *,CS(1) 

CALL  SETKCMl 1 ) 

GO  TO  400 

OPEN ( UNI TbI .TYPE* 'OLD' , NAME* 'MSET' .FORMS 'UNFORMATTED *, ERR*90 ) 

READ  (1)  MSET 
CLOSE(UNITsl) 

GO  TO  400 
TYPE  530 

FORMAT!/ , IX , '***  NO  PRE-DEFINED  PARAMETER  FILE  FOUNDS  ', 

'SET  DIRECTLY') 

NAPS  Macro-Yldcllty  Control 

TYPE  540 

FORMAT!//, 3X, 'MACRO-FIDELITY  CONTROLS  RE VI Etf /REVISE?  ',  J 

'(Y  OR  N)  N') 

ACCEPT  1 .LIT 
IF!LIT.NE.1HY)  GO  TO  140 
TYPE  S50,(lNACU,L),Isl,l6),L,LBl,16) 

FORMAT!/, 12X, 'CURRENT  IMAGE  PARTITION',/, 

16(/,BX,1612,5X,'ROH',I3),//,5X,'ROH  TO  CHANGE?  Cl-16)', 

SX,'!/  s  MO  FURTHER  CHNG)') 

LsO 

ACCEPT  *»L 

IF((L.LT.1).0R.!L.GT.16))  GO  TO  140 
DO  120  Isl.lS 
NT ( I )*M AC ( I , L) 

TYPE  560, L, NT 

F0RMAT13X, 'REVISE  RON', 12,'?  (RANGES  1-4)  (/  s  NO  CHNG)', 

/,16(1X,1D) 

ACCEPT  *,MT 
DO  130  I>1 , is 
XTbMT(I) 

IF((IT,GE,1).AND,(IT,LE,4))  MAC(I ,L)«IT 
CONTINUE 
GO  TO  110 
DO  ISO  RbI , 4 
IA(K)BO 
DO  160  Lsl, 16 
DO  160  Isl,l6 
ITsMAC(I.L) 

IA(IT)slA(IT)«l 


1 
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maps  Compression:  TrensMAPS  2-9 


MAPS/USERN 


C 

C  ***  NAPS  Micro-fidelity  Control 

C 

TYPE  570 

570  FORMAT!/, 3X, 'MICRO-FIDELITY  CONTROL:  REVIEtf/REVlSE? 

♦  '  !  Y  OR  N)  N') 

ACCEPT  1,LIT 

IF (LIT.HE. 1HY )  CO  TO  300 
200  DO  270  Ml, 4 

1FUAUQ.LE.0)  GO  TO  270 
210  IF(KCS(K).EO.lHK)  GO  TO  220 

TYPE  580,K,CS!K),TB!K},SF!K),SBiK) 

580  FORNAT(7x, 'GROUP', 12,'  CONTRAST  THRESHOLD  PARAMETERS', 

♦  /,9X, 'CONTRAST  SCALE' ,F7 . 1 ,/, 9X , 'TAPER ', 9X,F7. 1 , 

♦  /,9X, 'STEP  FRACTION  ' ,F7. 1 , /, 9X , 'STEP  BIAS  ',F7.1) 

220  TYPE  S90,K,!L-l,L,!KCM!J,L,K),Jsl«4),L,L*l,LT) 

590  FORMAT(/,7X, 'GROUP', 12,'  CONTRAST  THRESHOLD  MATRIX'* 

♦  / , 16X , 'E  M  L  U',5(/ ,9X,I1,'-',11,415,SX, 'ROM',12) ) 

230  TYPE  600 

600  FORMAT !/,5X, 'SPECIFICATION  MODES :',/, 7X , 'N  -  NO  CHANGE', 

♦  ✓ * 7X , 'S  -  SCALE  ONLY ' , / , 7X , 'P  -  PARAMETRIC' ,/, 7X, 'M  -  MATRIX', 

♦  //,5X, 'REVISE  SPECIFICATIONS?  (N  S  P  M)  N') 

ACCEPT  1 , LIT 

IF(LIT.Nt.lHM)  GO  TO  250 
KCS(K)>1HM 
240  L«0 

TYPE  610, LT 

610  FORMAT!/, 5X. 'MATRIX  RON  TO  CHANGE?  ( 1- '  ,  II , ' ) ' , SX, 

♦  '(/  *  NO  FURTHER  CHNG ) ' ) 

ACCEPT  *,L 

IFCCL.LT.l).OR.(L.GT.LT))  GO  TO  270 
TYPE  620,K,L-1,L,(KCM(J,L,K) , J»1 ,4) 

620  FORMAT(2X, 'REVISE  GROUP' . 12 , '/LEVEL  ', II , , II , '?', 

♦  /,4X,'E  M  L  U',/,4I5,5X,'(/  »  NO  CHNG)') 

ACCEPT  »,(KCM(J,L,K),Jel,4) 

TYPE  590,K,(L-l,L,(KCNCJ,L,K),U>l,4),L,LBl,LT) 

GO  TO  240 

250  IF((L1T.NE.1HS).AN0.(LIT.N£.1HP))  GO  TO  270 

KCS(K)slHP 
TYPE  630 , K ,CS ( K ) 

630  F0RMATI5X, 'GROUP', 12,'  CONTRAST  SCALE? ', F7 . 1 , 5X , 

♦  '(/  •  NQ  CHNG)') 

ACCEPT  * ,CS(K ) 

IFCLIT.EU.1HS)  GO  TO  260 
TYPE  640 , K , TB(K ) 

640  F0RMAT(5X, 'GROUP', 12,'  TAPER?' , F5. 1 , 5X ,'( /  ■  NO  CHNG)') 

ACCEPT  *,TB!K) 

TYPE  650 , K ,SF(K ) 

650  F0RMATI5X, 'GROUP', 12,'  STEP  FRACTION?' ,F4. 1 ,5X, ' {/  ■  NO  CHNG)') 
ACCEPT  *,SF(K) 

TYPE  660,K,SB(K) 

660  F0RMAT(5X, 'GROUP', 12,*  STEP  BIAS?',F4. 1 ,5X, '(/  ■  NO  CHNG)') 

ACCEPT  *,SB(K) 

260  CALL  SETKCM(K) 

GO  TO  210 
270  CONTINUE 
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NAPS  compression:  TrsnsNAPS  2-JO 


NAP6/USERM 


DO  2S0  L»1,LVL 
NT(L)«1HB 

ir(LBPCL).NE.O)  NT(I<)elHP 
280  CONTINUE 

TYPE  670,!L-1,L>1,LVL) 

670  FORMAT!/ , 3X , 'BLOCK /PATTERN  ASSIGNMENT: ',//, 9X, 'LEVEL  ',611) 

TYPE  680,!MT(L),L«1,LVL) 

680  FORMAT!9X, 'MODE  *,6A1) 

TYPE  690,!NT!L),L«1,LVL) 

690  FORMAT!/, 5X, 'REVISE  B/P  VECTOR?  ',6A1> 

ACCEPT  1,!MT!L),L«1,LVL> 

DO  290  L*2,LVL 
1F!MT!L).EQ.1HB)  LBP!L)eO 
IF(MT(L).E0.1HP)  LSP!L)*1 
290  CONTINUE 

C 

C  **»  MAPS  Grey-scale  Nanlpulaclons 

C 

300  TYPE  700 

700  FORMAT!/, 3X, 'GRAY-SCALE  MANIPULATIONS:  RE VI EH /REVISE?  ', 

♦  '1Y  OR  N)  N') 

ACCEPT  1 ,LIT 
IF(LIT.NE.IHY)  GO  TO  400 

310  DO  320  Ka2,9 

IF(KBP(1,K).GE.2SS)  GO  TO  330 
320  CONTINUE 

K>9 

330  TYPE  710,(KBP(1,J),KBP(2,J),JB1,K) 

710  FORMAT!/, SX, 'CONTRAST  SPACE  REMAPPING:  PIECENISE  LINEAR*,//, 

♦  7X , ' ! CODE  SPACE/CONTRAST  SPACE)  BREAKPOINT  PAIRS',//, 

♦  !11X,13,6X,14)) 

TYPE  720 

720  FORMAT!/, SX, 'REVISE  CONTRAST  REMAP?  !Y  OR  N)  N') 

ACCEPT  1 ,LIT 
I F ! LIT. NE . 1 H Y )  GO  TO  350 
DO  340  K«2 , 9 
K1L«KBP!1,K-1) 

IFiK.E0.9)  K1L«255 
K2L>KBP(2,K-1 ) 

K1U«255 
K2L>MAXK 
KITeKBP! 1 ,K) 

IFIK1T.LE.K1L)  K1T«K1L 
K2T*KBP!2,K) 

IFIK2T.LE.K2L)  K2T>K2L 
TYPE  730,K,K1L,K1U,K2L,K2U,K,K1T,K2T 
730  FORMAT!/, 7X, 'POINT', 12, ':',/, 9X, 'CODE  SPACE  RANGE', 6X, 

♦  '!', 13,'-', 13, ')',/, 9X, 'CONTRAST  SPACE  RANGE  ( ',14, '-',14, ') ', 

♦  //,5X, 'REVISE', 12,'  ! CODE/CONTRAST )?',I4,I5,*  (/  m  NO  CHNG) ') 
ACCEPT  »,K1T,K2T 

IF!K1T.LE.K1L)  K1T*K1L 
1F1K1T .GT.K1U)  K1TNK1U 
KBP!1,K)*K1T 
IF!K2T.LE.K2L)  K2T«K2L 
IF! K2T.GT.K2U )  K2T«K2U 
KBP!2,K)>K2T 
IFIK1T.E0.255)  GO  TO  310 
340  CONTINUE 
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MAPS/USERM 


GO  TO  310 

350  DO  360  1*2,9 

1F(IBP(1,1).GE,255)  CO  TO  370 
360  CONTINUE 

1«9 

370  TYPE  740,(IBP(l,J),IBP(2,J),.)wl,l) 

740  FOkMAT(/,5X, 'INTENSITY  SPACE  REMAPPING:  PIECEWISE  LINEAR',//, 

♦  7X, ' (CODE  SPACE/INTENSITY  SPACE)  BREAKPOINT  PAIRS',//, 

♦  (11X, 13, 6X, 14)) 

TYPE  750 

750  rORMAT(/,5X, 'REVISE  INTENSITY  RENAPT  (Y  OR  N)  N') 

ACCEPT  1 , LIT 

ir(LIT.NE.lHY)  GO  TO  390 
DO  380  1*2,9 
I 1L*IBP( 1,1-1) 

1FII.E0.9)  1 1 L»255 
12L*1BP ( 2 , I-l ) 

11U>255 

12U*MAXI 

I 1 T*IBP( 1,1) 

IF(IIT.LE.IIL)  UTH1L 
12T*IBP(2,I) 

1F(I2T.LE.12L)  I2T*12L 
TYPE  760,1,11L,I1U,X2L,I2U,I,11T,I2T 
760  FORMATl/, 7X, 'POINT', 12, ':',/, 9X, 'CODE  SPACE  RANGE*, 7X, 

♦  '(',13,'-', 13, ')',/, 9X, 'INTENSITY  SPACE  RANGE  ( ' , 14, '-' , 14 , 

♦  ')',//, 5X, 'REVISE', 12,'  (CODE/INTENSITY)?', 14, 15, 

♦  •  '  (/  *  NO  CHNG) ') 

ACCEPT  *,I1T,I2T 

IF ( I1T.LE, I1L)  11T>11L 
IF(IIT.GT.IIU)  I1T«I1U 
IBP(1,I)*I1T 
IF ( I2T.LE. I2L> )  I2T*I2L 
IF ( 1 2T.CT, I2U )  I2T*I2U 
IBP(2 , I )"I 2T 

IF ( I IT, EG. 255)  GO  TO  350 
380  CONTINUE 

GO  TO  350 

390  TYPE  770 , IRSET 

770  FORMAT(/,5X, 'INTENSITY  RESET! ',//, 7X , 'N  -  NEAN  OF  OUAD',/,7X, 

♦  'P  -  PSEUDO-MEDIAN  OF  QUAD' , / , 7X , 'L  -  LOWEST  IN  QUAD',/,7X, 

♦  'S  -  SECOND  IN  QUAD' ,/,7X, 'T  •  THIRD  IN  QUAD',/,7X, 

♦  'H  -  HIGHEST  IN  QUAD', //,5X, 'REVISE  RESET?  (M  P  L  S  T  H)  ', 

♦  Al) 

ACCEPT  1 , LIT 
IF(LIT.EG.IHN)  IRSET»1HM 
IF(LIT.EQ.IHP)  IRSETalHP 
IF(LIT.EQ.IHL)  IRSETalHL 
IF(LIT.EQ.IHS)  1RSET»1H5 
IF(LIT.EQ.IHT)  1RSET«1HT 
IF(LIT.EQ.IHH)  IRSET*1HH 


MAPS  Coaprasslon:  TrangWAPS  2*12 
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400  TYPE  780 

780  FORMAT! //«  3X , 'USER  SPECIFICATION  COMPLETE 1 3X , 28 ( 1 H* ),//, 5X , 

♦  'REVIEW?  <Y  OR  N)  N') 

ACCEPT  I, LIT 
IF(LXT.EQ.IHY)  GO  TO  100 
TYPE  790 

790  FORMAT(3k« 'SAVE  THESE  PARAMETERS  FOR  FUTURE  USE?  (Y  OR  N)  N') 
ACCEPT  I, LIT 
1FCLIT.NE. 1HY)  GO  TO  410 

OPENIUMITbI fTYPEa'NEW'fMAME^'MSET' rFORMa'UNFORMATTEO') 

WRITE  (1)  MSET 
ENOFILE  1 
CLOSE (UNITmI) 

TYPE  800 

800  F0RMAT(5X* 'PARAMETERS  SAVED  ON  FILE  NSET.DAT') 

410  CONTINUE 

RETURN 
END 
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SUBROUTINE  SETKCM(K) 

Purpose:  Infer  Group  K  contrast  control  eetrlx  from  parametric 
specification 

CALLed  from:  USERN 


C 


♦ 


COMMON  /CONTKL/  MACU6, 16)  , KCS ( 4 )  ,CS{ 4)  , TB(4)  ,SF (4)  ,SB(4)  , 
KCM(4,5,4),LbP(6),KBP<2,9),lBP(2,9),IRSET 
TEsCS(K) 

B«TB(K) 

FMsSF(K) 

F0«FM*5B(K) 

IFIB.GT.O.)  CO  TO  10 
TYPE  100pB#K 

FORMATC/, '**•**  GROUP', 12,'  TAPER  m',F8.1) 

DO  20  L=l,5 
IT«TE*0.5 
KCM(1,L,K)*IT 
IT»FM*TE*0.5 
KCM(2,L,K)>IT 
1T»FU»TE*0.S 
KCM(3,L,K)slT 
KCMC4,L,K)=IT 
TE*TE/B 
RETURN 
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SUBROUTINE  SETUPM 

Purposes  Establish  MAPS  compression  controls 

Pack  oiock(0)/pattern(l )  aodes  to  bit  vector  by  level 
Establish  subfrase  partition  paraaeters  Cor  aacro-tldellty 
index  deteralnation 

Establish  contrast  control  aatrices  with  single  index 
addressing 

Establish  contrast  reaap  and  Intensity  reaap/deaap  tables 
Establish  subfraae  raster  to  zigzag  conversion 
Establish  level-triplet  to  byte  resolution  packing  table 
Initialize  optlaua  bias  and  perforaance  evaluation 
accuaulators 

CALLed  froas  NAPS 

CAIiLs:  RNPSET, ZIGZAG, LVLSET 


COMMON  /CONTRL/  MAC( 16 , 1 6 ) ,KCS 14) ,CS (4 ) ,TB(4) ,SP(4) ,SB(4) , 

♦  KCM(4,S,4) ,LBP(6 ) ,KBP(2,9),1BP(2,9), IRSET 

COMMON  /HEADER/  IFILE , I NAME ( 8) , NL, NP, NB,KSF, IGRD,N$,NC,NIXBP, 

♦  1BV(5,2), IPAD  17 ) 

BYTE  INANE 
INTEGERM  NS, MC 

COMMON  /8FCNTL/  KSFT , KSOT, NPST ,NPSLC 8 ) , MPSLl 8) ,KSFH ,rL,FP, JGRD 
DIMENSION  JPSL( 8 ) 

COMMON  /MDATA/  MREC , MLOC , MSF( 512 ) 

BYTE  MSF 
INTEGERM  MREC 

COMMON  /MTENP/  NM , KM , M APSEL ( 5) ,MLVLC4) 

COMMON  /CNTKST/  KCNT(80) ,KINDX 
COMMON  /BLKPAT/  LBPT ( 5 ) , IQBP ( 4 , 4 ) 

COMMON  /GRYSCL/  KRNP(256),IRHP(256), IDMPC4096) 

COMMON  /RESET/  MSK (4 ) , NORM , NB1AS 
COMMON  /ZIGZAG/  IZZC1024) 

COMMON  /LVLTBL/  LVLT(366) 

COMMON  /MAPSSF/  NSQ, NLVL , I CODE ( 1024 ) , KNTRSTt 1024) , INTENSC 1024) , 

♦  LEVEL(1024),PATTKN(1024) 

BYTE  LEVEL, PATTRN 

COMMON  /MSTATS/  MOUNT ( 2 , 6 ) , DIFF12 ,6) , DIFFS0,5UMS0 

INTEGERM  KOUNT 

REAL»8  DIFF,U1FFS0,SUMS0 

DATA  NPSL/8«0/,MPSL/28, 52,12,36,60,20,44,4/ 

DATA  JPSL/4, 1,6, 3, 0,5, 2, 7/ 

DATA  IOBP/ 1,1, 2 , 2, 2, 1,2, 1,1, 2, 1,2, 2, 2, 1,1/ 

IF1LE*1 

NIXBPsO 

Msl 

DO  110  jsl,6 

MlXBPsMlXBP.OR.(M«(LBP(J).AND.*l)) 

110  M«2*M 

KSFTsKSF 

KSOT*KSF*KSF 

NPST»(NP-l)/KSFtl 
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IF(IGRD.EQ.O)  GO  TO  130 
00  120  Jsl ,8 

NPSL(J)s(NPST+JPSL(J))/6 

KSFHsKSF/2 

FL*16./NL 

FP*16./NP 

JGRD=IGRD 

MRECsl 

NLOC«0 

DO  140  Jsl ,512 

MSF(J)sO 

NMs4 

1FCKSF.NE.8)  NN*3 

KNsO 

IsO 

00  170  Lsl, 4 

DO  160  K*1 , 5 

DO  150  Jsl ,4 
Isl+l 

KCRTU)sKCMCJ,K,L) 

CONTINUE 

CONTINUE 

KINDXS1 

DO  180  Jsl, 5 
LBPT(J)sLBP(J+l) 

CALL  RNPSET 
CALL  ZIGZAG 

IF(KSF.GT.S)  CALL  LVLSET 

NSQsKSF*KSF 

NLVLS4 

IF {KSF ,EU, 16)  NLVL«5 

IF (KSF.EQ. 32)  NLVL«6 

DO  190  Jsl, 1024 

!CODE(J)sO 

KNTRSTC J)s0 

INTENSC J )«0 

LEVEL  CJ ) sO 

PATTRN ( J)sO 

CONTINUE 

00  210  Jsl, 6 

DO  200  Isl , 2 
KQUNT ( I , J ) sO 
DIFFCI,J)sO,DO 
CONTINUE 
DIFFSQsO.DO 
SUNSOsO.OO 
RETURN 
END 
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SUBROUTINE  RMPSET 
C 

C  Purpose:  Establlsn  functional  grayscale  manipulation  controls 
C  Estaollsn  code  (8-bit  grayscale)  to  contrast  space  remap 

C  Establish  code  to  Intensity  space  remap  and  demap 

C  Establish  intensity  reset  masks*  normalisation  factor, 

C  and  rounding  bias 

C 

C  CAELed  from:  SETUPM 
C 

C— — — . . . . 

COHHDN  /CONThL/  NAC( 16 , 16) , KC5(4) , CS(4) ,TB(4) *SF (4) *SB(4) * 

4  KCH(4,5*4) , LBP (6 ) *KBP(2  *9) *  IBP (2  *4) , IRSET 

COMMON  /GRKSCL/  KRMP ( 256 ), IRNP( 256 ), IDNP( 4096 ) 

COMMON  /RESET/  NSK<4) *NORM,NBIAS 

00  110  JSEG>2 *9 

l*BPl>KBP(l*JSEG-l)4l 

LBP2«KBP(l,JSEG)+t 

DL«LBP2-LBP1 

NBP1«KBP(2,JSEG-1)+1 

NBP2*KBP(2.JSEG)+1 

DN«NBP2-NBPi 

IFCLBP1.EU.LBP2)  GO  TO  120 
F*DN/DL 

00  110  J>LBP1.LBP2 

110  KRMP(J)bN8P1*F*(J-LBP1)«0.5 

120  KRMP(LBP1)bNBP1-1 

IF(LBP2.GE.256)  GO  TO  200 
130  CONTINUE 

200  DO  250  JSEGs2*9 

LBP1*1BP(1,JSEG-1)+1 

LBP2*1BP(1,JSEG)41 

DL*LBP2-LBP1 

NBP1»IBPC2.JSEG-1)+1 

NBP2>IBP(2,JSEG)tl 

DN>NBP2-NBP1 

IF(LBP1.C0.LBP2)  GO  TO  220 
FmDN/DL 

DO  210  JblbP1,!*BP2 

21°  IRMP(J)bn6P1*F»<J-LBP1)-0.5 

220  IRNP(LBPl)sNbPl-l 

IFCNBP1.E0.NBP2)  GO  TO  240 
FmDL/ON 

DO  230  JmNBPl *  NBP2 

230  IDNP(J)beBP1+F*(J>NBP1)-0.5 

240  IDNPCNBPl )«LBP1-1 

IF(LBP2.GE.256)  GO  TO  300 
250  CONTINUE 
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300  00  310  Jsl ,4 

310  MSK(J>«0 

IRbIRSET 

IF((IR.EU.1HN).0R.(IR.EQ.1HL))  NSK(l)a"7777 
1F((IR.E0.1HM).OR.(1R.E0.1HP).OR.(1R.E0.1HS))  NSK(2)«a7777 
IF((IR.EQ.1HN).0R.(IR.EQ.1HP).0R.(IR.EQ.IHT))  NSK(3)«*7777 
IF((IR.EU.1HN).0R.(1R.E0.1HH))  NSK (4) ■•7777 
M0RN«1 

IF(lk.EO.lHP)  N0RM>2 
lF(lR.EO.lHM)  NORM*4 
NB1 ASsNORM/2 
RETURN 
END 
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SUBROUTINE  ZIGZAG 

Purposes  Estebllsn  subtraae  raster  to  zigzag  conversion  table 
CALLed  Cross  SETUPM 


COMMON  /SFCNTL/  KSFT , KSOT , NPST , NPSLl 8) , NPSL( 8 ) , KSFH , FL, FP, JGRD 
COMMON  /ZIGZAG/  1ZZU024) 

DATA  IZZ/1024*0/ 

DO  120  JZZ*1,KSUT 

NZZsJZZ-1 

KMSK*NZZ.AND.a525 

LMSKs (MZZ/2) . AND. a52S 

MO 

L«0 

N*1 

DO  110  Jsl.S 
KT*KMSK . AND . *  1 
MK.OR.(N*KT) 

LT«LM5K.AND.al 

L«U0R.(M«LT> 

MSMKM8K/4 
LMSMLMSK/4 
110  Ns2*M 

IRST»KSFT*L*Ktl 
120  1ZZ(IRST)>JZZ 

RETURN 
END 
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SUBROUTINE  LVLSET 

Purposet  Establish  level-triplet  to  byte-packed  conversion  table 
Levels  (resolution  codes)  ere  concatenated  as  a 

three-digit  octal  number  to  fora  the  look-up  address* 
L3L2L1.  Maximum  value  is  octal  5SS  tor  32x32  case 

CALLed  from:  SETUP* 


COMMON  /LVLTBL/  LVLT(3b6) 

DIMENSION  N(3,6) 

DATA  LVLT/366V-1/ 

DATA  N/1,8,64,  1*64*8,  8*1,64,  64*1,8,  8*64,1*  64,9,1/ 
Ll»2 

DO  140  11*1,6 
L1*U-1 

DO  130  12*1,11 
L2*I2-1 

DO  120  I3>1*12 
L3*13-l 

DO  110  IP*1,6 

LV»Ll*M(l,lP)*j,2*M(2,IP)+L3*M(3,IP)*l 
1F(LVLT(LV).NE.-1)  GO  TO  110 
LlsLl+1 
LVLT(LV)«L1 


110 

CONTINUE 

120 

CONTINUE 

130 

CONTINUE 

140 

CONTINUE 

RETURN 

END 

» 
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SUBROUTINE  SFNACCLOOPSF) 

Purpose:  Convert  tne  subfraee  index,  LOOPSF,  to  the  corresponding 
eecro-t ldell ty  control 

Oeterolne  the  center  line  end  pixel  of  the  subfraee 
Scale  to  the  aacro«f idellty  coordinate  Indices 
Generate  the  contrast  control  aatrlx  base  address  for 
the  corresponding  fidelity  control  group  C 1 — 4 > 

CAULed  free:  maps 


INTEG£R*4  LOOPSF ,  ISTAR4 

COMMON  /CONTRL/  MACU6 , 1 6) ,ICCSC 4) , CS(4) ,TP(4) ,SF(4) ,SBC4) , 

KCM C  4 ,  b ,  4 ) , LBP C  6 ) , KOV  C  2 , 9 ) , IBP  C  2 , 9 ) , I kSCT 
COMMON  /SFCNTli/  KSFT ,KS0T, NPST, NPSL( S) , MPSLCS) , KSFH, FL > FP , JGRD 
COMMON  /CNTRST/  KCMT ( SO ) , KINUX 

I ST AH 4s ( LOOPSF  >1 ) /NPST  2  1*4 

NR0NS1STAR4 

LEFT>LOOPSF»NPST«ISTAR4  2  1*4 

IF  C JGRD.NE. 0 )  GO  TO  110 

Square  Grid  Partition 

KSKSFT«(LEFT-1)4KSFH 
L>KSFT*NROM+KSFH 
GO  TO  ISO 

Staggered  Grid  Partition 


LFT=LEFT 
DO  120  Usl.a 
LTMP«LFT-NPSLCJ) 
IFCLTMP.LE.O)  GO  TO  130 
LFT»LTMP 

K«KSQT*  CLFT«1 ) ♦"PSL ( J ) 

L*KSFT»CNROVl)+KSFH*J 

MK«FP*Kel 

IFCMK.LT. 1)  MK* 1 

1FCMK.GT.16)  MKS16 

ML*FL»L+1 

IFCML.LT. 1)  NL*1 

IFCML.GT.16)  ML«16 

KINDX*20*MAC(NK,ML)-19 

RETURN 

END 
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SUBROUTINE  SPIN 

Purpose:  input  and  convart  next  source  laage  subfraaa 

Re-oroer  froa  subfraae  raster  to  zigzag  position 
Reaap  gray  scales  froa  code  to  contrast  and  intanslty 
spaces 

Initialise  level  and  pattarn  asslgnaants 


CALLed  from  NAPS 
C 

C-— .............  ....................  ................. 

COMMON  /Sf DATA/  isr(1024) 

BYTE  1SF 

COMMON  /GRYSCL/  KRNP< 2S6 ), 1RMP ( 266 ), IDNP( 4096) 

COMMON  /ZIGZAG/  IZZO024) 

COMMON  /MAPSSF/  MSO ,NLVL, ICODE( 1024), KNTR ST (1024) , 1NTENSC 1 024)  , 
♦  LEVEL(1024),PATTRN(1024) 

BYTE  LEVEL, PATTNN 

READ  (2)  C1SF(J) , J«1 ,NS0) 

DO  110  JbI , NS0 
NalSF(J) 

IFtN.LT.O)  N»N+256 
JZZ>IZZ(J) 

1C0DE(JZZ)»N 

NaN4l 

KBKRMP(N) 

KNTRST(JZZ)aK 

1>IRMP(N) 

INTENSt JZZ)>1 
LEVEL(JZZ)«0 
PATTRN(i)ZZ)*0 
110  CONTINUE 

RETURN 
END 
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SUBROUTINE  SPNAPS 

Purpose!  NAPS  coapresslon  of  source  la*ee  ivsfrMt 
Loop  on  levels 

Loop  on  MAPSel  quads  (In  ligxag  order) 

Fore  contrasts  and  sign-sort  vector 
Test  contrasts  and  fora  MAPSel  (If  required) 
Recursion  on  completed  NAPSels 

Accuaulate  optlaua  bias  and  performance  statistics 

Transfer  NAPSels  to  output  buffer 

Output  S12-byte  NAPSel  records  asynchronously 

CALLed  from:  naps 
CALLS!  ODIFF, THRESH, MAPOUT 


COMMON  /MDATA/  MREC , NLOC , MSF (51 2 ) 

BYTE  MSF 
INTEGER*!  MREC 

COMMON  /NTEMP/  NN,KM,NAPSEL(S) »NLVL(4) 

COMMON  /CNTRST/  KCMT ( 80 ) , KIND* 

COMMON  /BLRPAT/  LBPT( 5 ) , I0BP(4, 4) 

COMMON  /CRTSCL/  KHMP(256 ) , IRNP(256) , IDNP( 4096) 

COMMON  /MAPSSF /  NSU ,NLVL, IC0DE( 1024) , KNTRST ( 1 024 ) , INTERS ( 1024 ) , 
4  LEVEL (1024), PATTRN (1024) 

BYTE  LEVEL, PATTRN 

COMMON  /MSTAT5/  K0UNT( 2 ,6) ,01FF( 2, 6) ,DIFFSO,SUMSO 
INTEGER*!  KOUNT 
REAL*8  D1FF,DIFFS0,SUMS0 

COMMON  /QUAD/  AT (4), IT (4) ,NT(B> ,LQ,LVLP,NN 
DIMENSION  MSTEP(O) 

INTEGER*!  ISTAR4 
DATA  NSTCP/1, 4, 14, 64, 256,1024/ 

HTRNS*NLVL-1 
DO  130  LTRNS*1,NTRNS 
LSTPaNSTEP ( LTRNS* 1 ) 

NSTPaMSTEP ( LTRNS ) 

LVL«LTRNS-1 
LVLPaLTRNS 

DO  12U  LOUALal ,NS0,LSTP 
LOSLOUAD 
INAPSaLOUAD 

00  110  MPSELal ,4 

IF(LEVEL(IMAPS).NE.LVL)  GO  TO  120 
MT(MPSEL)aKNTRST ( I NAPS) 

IKMPSEL)alNTENS(IMAPS) 

110  INAPSaiMAPS+NSTP 

CALL  ODIFF 
CALL  THRESH 
120  CONTINUE 

130  K1NDX*KINDX*4 
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I 

L0*1 

200  LVLbLEVEL(LQ) 

LVLPbLVL+1 

INT>INT£NS(LO)+l 

KOOEbIDNP(INI) 

.  lF(LVL.GT.O)  GO  TO  210 

ICalCOPE(LQ) 

1  ISTAR4«IC 

SUNSQ>SUMSQ+1STAR4*ISTAR4  t  1*4 

ZMsIC-KOOE 

ISTAR4«IN 

D1FFS0=DIFFSU+ISTAR4*ISTAR4  1  1*4 

KOUNTd  r  1  )*KOUNT(  1  >  1  ) tl  !  1*4 

LQbLQ+1 

KBPTsO 

GO  TO  300 

210  N5TP«NSTEP(LVL) 

IPAT«PATTRNCLQ) 

JPAT*1 

KBPT«LBPT(LVL) 

IF(KBPT.NE.O)  KODE*KODE. AND. *374 
DO  230  JOUADsl.4 

'  IF (KBPT.NE. 0 )  JPAT>IQBP( JQUAD. IPAT+1 ) 

DO  220  INQUADBl ,MSTP 
IC«ICODE(LU) 

1STAR4SIC 

SUNS0*SUMS0+ISTAR4*ISTAR4  1  1*4 

IRBIC-KODE 

1STAR4BIN 

|  DirF50«DIFF&0*I5TAR4*ISTAR4  1  1*4 

|  DIFF  C JPAT»LVLP)*DIFF l JPAT. LVtP)4KBPT*lN 

K0UNTCJPAT,LVLP)«K0UNTCJPAT,LVLP)4l  I  1*4 

220  LQsLQ*l 

230  CONTINUE 

300  RNBKN41 

IF(KBPT.NE.O)  KODEbR0DE.0R.1PAT 
NAPSELCKMtl )bKODE 

I  MLVL(KN)sLVL 

'  IFCKM.LT .NN)  GO  TO  310 

CALL  MAPOUT 

310  IF(LQ.LE.NSG)  GO  TO  200 

RETURN 
END 


0 


ooooooonoo 


maps  compression:  TransNAPS  2*24 


NAPS/QDIFF 


SUBROUTINE  ODIFF 

Purpose:  Generate  quad  contrasts  and  sign-sort  vector 

Fore  all  six  quad  contrasts:  3-2  3-1  2-0  1-0  2-1  3-0 
Psck  signs  of  contrasts  In  left-right  order  shown 
for  sign-sort  vector 

Lowest  two  bits  autoeatlcally  give  pattern  code 
CALLed  troa:  SFNAPS 


CONNON  /QUAD/  KIC4),IT(4),NT(6),L0,LVLP,NN 
NT(1)*KT(4)-KT(3) 

NT(2)*KT(4)-KT(2) 

NT(3)*KT(3)-KT(1) 

NT(4)*KT(2)-KT(1) 

NT(S)«KT(3)-KT(2) 

NT(6)*KT(4) -KT ( 1 ) 

NN*0 

DO  110  J=l,6 
NN>2*NN 

IF(NTCJ).LT.O)  NNeNNfl 

CONTINUE 

RETURN 


onnnnoooooon 


MAPS  Compressions 


TransMAPS  2-25 


MAPS/THRESH 


SUBROUTINE  THRESH 

Purpose:  Test  contrasts  and  fora  nee  coaposlte  NAPSel  (If  required) 
Based  on  sign-sort  vector  index  NN: 

NSRT  gives  contrast  Indices  In  following  order: 

(Extreme  Middle  step  Lower  step  Upper  step) 

1SRT  gives  Intensity  Indices  in  lncreaslng-value  order 
Demap  nee  MAPSel  from  Intensity  space:  then  remap  to 
contrast  space 

CALLed  from:  sfmaps 


COMMON  /CNTRST/  KCMT(SO) ,KINDX 

COMMON  /GRYSCL/  KRMP(256),IRNP(256),IDMP(4096) 

COMMON  /RESET/  MSK < 4) , NORN , NBI AS 

COMMON  /NAPSSF/  NSQ.NLVL, 1C0DE( 1024) ,KNTRST( 1024) , IMTENSC 1024) , 
4  LEVELC1024) , PATTRN ( 1 024 ) 

BYTE  LEVEL, PATTRN 

COMMON  /OUAD/  KT(4),IT(4),NT(6),LQ,LVLP,NN 
DIMENSION  NSRT(4,64) ,ISRT(4,64) 

DATA  NSRT/6, 5, 4 , 1 ,  4*0,  6, 5, 3, 2,  4*0,  2, 3, 4,1,  20*0,  1,4, 3, 2, 

4  4*0,  2, 3, 5. 6,  4, 1,5, 6,  1,4, 5, 6,  3, 2, 5, 6,  8*0,  4, 1,3,2,  28*0, 

4  5, 6, 3, 2,  5, 6, 1,4,  12*0,  3, 2, 1,4,  3, 2, 4,1,  12*0,  5,6,4, 1, 

4  5, 6, 2, 3,  28*0,  4, 1,2, 3,  8*0,  3, 2, 6, 5,  1,4, 6, 5,  4, 1,6, 5, 

4  2, 3, 6, 5,  4*0,  1,4, 2, 3,  20*0,  6, 5, 2, 3,  4*0,  2, 3, 1,4,  4*0, 

4  6, 5, 1,4/ 

DATA  ISKT/1 ,2,3,4,  4*0,  1,3, 2, 4,  4*0,  2, 1,3, 4,  20*0,  3, 1,2, 4, 

4  4*0,  2, 3, 1,4,  2, 3, 4,1,  3,2, 1,4,  3, 2, 4,1,  8*0,  1.3, 4, 2,  28*0, 

4  3, 1,4, 2,  3, 4, 1,2,  12*0,  3, 4, 2,1,  1,2, 4, 3,  12*0,  2, 1,4, 3, 

4  2, 4, 1,3,  28*0,  2. 4, 3,1,  8*0,  1,4, 2, 3,  4, 1,2, 3,  1,4, 3, 2, 

4  4, 1,3, 2,  4*0,  4, 2, 1,3,  20*0,  4, 2, 3,1,  4*0,  4, 3, 1,2,  4*0, 

4  4,3,2,!/ 

NNP*NN4 1 
KX*KINDX-1 
DO  110  Jsl,4 
NDXmNSRT( J,NNP) 

KX«KX4l 

IFCIIABSCNTCNDX )).GT.KCMT(KX))  GO  TO  130 
110  CONTINUE 

NEMmNBIAS 
DO  120  0*1 ,4 
IDX*ISRT(J,NNP) 

120  NEMSNEN4(MSK(J).AND.IT(IDX)) 

newbnew/norm 

KNEN*IDMP(N£W4l)4l 

KNTRST(LQ)>KRMp(KNEW) 

INTERS (LO)mNEe 
LEVEL(LO)>LVLP 
PATTRN (L0)>NN, AND. " 3 
130  RETURN 

END 
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MAPS  Compression:  TransMAPS  2-26 


NAPS/NAPOUT 


SUBROUTINE  NAPOUT 
C 

C  Purpose:  Transfer  completed  NAPsel  auitlplets  to  output  buffer 
C  pack  level  multlpiets  to  byte  (4  If  8x1,  3  if  16x16  32x32) 

t  Transfer  Intensity/pattern  codes  to  following  bytes  (4  3) 

c  Output  512-byte  MAPSel  stream  records  asynchronously 

C  CALLed  from:  sfmaps 
C 

C-~- - - - - - - - - 

COMMON  /MDATA/  MREC. MLOC, MSF ( 51 2 ) 

BYTE  HSF 
INTEGER**  MREC 

COMMON  /MTEMP/  NN , KN , MAPSELC 5) ,MLVL(4 ) 

CONNON  /LVliTBL/  LVLT  (  366  ) 

IFCNM.EO.3)  CO  TO  120 

M*1 

LV*0 

DO  110  J>l,kM 
LV*LV+M*MLVL(<J) 

110  Ms4*N 

MAPSEL(1)«LV 
CO  TO  140 
120  Hsl 

IiV«l 

DO  130  Osi.KN 
LV»LV+H*MLVL(J) 

130  Nc8*M 

MAPSELC 1 )«LVLT  (  LV  ) 

140  KN>KN+1 

DO  150  dal, KM 
NT»NAPS£L(J) 

IFCMT.GT.127)  MTaMT-256 

NLOC«MLOC+l 

NSF(MLOC)>MT 

IFCML0C.LT.512 )  CO  TO  150 

NREC«NREC*1  .  ... 

UNITE  t 3'MREC)  HSF  1 

NLOCaO 

ISO  CONTINUE 

KN*0 
RETURN 
END 


1 1 1-73 


o  n  n  n  n  n  n 


MAPS  Compression:  TransMAPS  2-27 

I 

SUBROUTINE  LSTREC 

Purpose:  Transfer  remaining  MAPSels  to  output  buffer 
NAPSei  stream 

CALLed  from:  MAPS 


COMMON  /MDATA/  MREC , MLOC , MSF (51 2) 

BYTE  MSF 
INTEGER**  MREC 

COMMON  /HTEMP/  NM , KM , MAPSELC 5) .MLVUC4) 
COMMON  /LVLTBli/  LVLTC366) 

IF(KM.LE.O)  GO  TO  2U0 
IFCNM.E0.3)  GO  TO  120 
Msl 
LV*0 

DO  110  Jsl.KN 
LV*LV+M*MLVL(J) 

110  MM*H 

MAPSEUt 1 )«LV 
GO  TO  140 
120  M*1 

LV*1 

DO  130  J*1,KM 
LV«LV+M*MLVLCJ) 

130  M>6*M 

MAPSELC1)*LVLT(LV) 

140  KM3KM41 

DO  1 50  J=1 t KM 
MT*MAPSEL( J) 

IFCMT.GT.127)  MT*MT-256 

MLOCmMLOCel 

NSF(MLOC)*MT 

IFCMLOC.LT . 512 )  GO  TO  150 

NREC«MRECti 

WRITE  (3'HREC)  MSF 

MLOCbO 

150  CONTINUE 

200  IFfMbOC.LE.O)  GO  TO  300 

NGPmMliOC*  1 
DO  210  J>MLP»  51 2 
210  NSF(J)*0 

MREC«MREC*1 
WRITE  (3'MKEC)  MSF 
300  RETURN 


MAPS/LSTREC 


and  coaplete 


1  1*4 


1  1*4 
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MAPS  Compression 


TronsMAPS  2-28 


MAPS/SUMMR Y 


SUBROUTINE  5UMNR Y 

Purposes  oeterelne  optlaue  pattern  biases  there  desglneted  and 
report  overall  compression  and  fidelity  performance 

CALLed  froet  MAPS 


COMMON  /HEADER/  IPILE , I  NAME ( 8 ) , NL , NP, NB , KST , 1CRD , NS, HC, MIXBP , 

♦  IBV ( 5 , 2 ) , IPAD ( 7 ) 

BYTE  1NAME 
INTEGER**  NS,MC 

COMMON  /MDATA/  MREC,ML0C,NSF(512) 

BYTE  MSF 
INTEGER**  NREC 

COMMON  /NSTATS/  KOUNTC 2 , 6 ) , DIFP ( 2 , 6) , DlFFSO, SUMSO 

INTEGER**  MOUNT 

REAL*8  DIFF, DlFFSO, SUMSQ 

DIMENSION  MSIZE(S) 

INTEGER**  LBIT.ISTAR4 
REAL*8  TEMPB,PIX,BITI,BITM 
DATA  MSIZE/4,16,64,256,1024/ 

MC*K0UNTC 1 , 1 )*KOU*TC2, 1 )  1  1*4 

KOUNTC 1 , 1 )*MC 
DO  120  J*1 , 5 
JJ*J*1 

DO  110  1*1,2 
IOPT*0 

ifckount(i.jj).eo.o)  go  to  no 
TEMP8*K0UNT(I,JJ) 

OPT=DIFF(l,JJ)/TEMP8 

10PT*0PTt0.5 

IF (OPT , LT .  0 . )  10PT*OPT-0,5 

DIFFSOsDIFFSO-2.*IOPT*D1FF1I,JJ)*IOPT*IOPT»TEMP8 


no 

1BV ( J , I )*IOPT 

KOUNTC 1 , JJ )*( KOUNT (1 » JJ )*KOUNTC2, JJ) )/MSlZE(J) 

1 

1*4 

NC*MC*K0UNTU,JJ) 

l 

1*4 

120 

CONTINUE 

TYPE  500 , MREC-2 , MLOC 

500 

FORMAT!/, IX, 'MAPS  FILE  C0NTA1N5' , I 6, '  512-BYTE 

RECORDS  PLUS 

9 

9 

♦  14,'  BYTES  IN  THE  LAST') 

NLVL** 

IF (KSF,EO. 16)  NLVL*5 
IFIKSF.E0.32)  NLVL*6 
TYPE  510, CL-1,L*1, NLVL) 

510  FORMAT ( / ,  IX, 'MAPS EL  DISTRIBUTION  1 ',//, 3X , 'LEVEL I  '  ,'I7 , 519) 

TYPE  520, (KOUNT(l,L),L*l, NLVL) 

520  rORMAT(3X, 'COUNT!', 619} 

NLVL«NLVL-1 

TYPE  530, (IBV(J,1), J*l, NLVL) 

530  F0RMAT(/,3X, 'OPTIMAL  BIAS!  -',17, *19) 

TYPE  540 ,(IBV(J,2),J*1,NLVL) 

540  rORMAT(17X, '*',17,419) 
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maps  Coapresclon:  TransMAPS  2*29 


MAPS/SUMMRY 


ISTAR4*NL 

PIX*NP*ISTAR4 

BIT1»NB*PIX 

LBITs(MC+2)/3 

XF(KSF.EQ.S)  LBIT* (  MC+3 ) /4 
BITM*8*(NC«LBIT) 

CRsBITI/BXTM 

BPP«BITM/PIX 

ERRORs 100 .*(DIFFSQ/SUMSQ) 

TYPE  550, CR.BPP, ERROR 

550  FORMAT ( / , IX, 'COMPRESSION  RATIO: ' , F8 . 3 , '  :  1',//,1X, 

♦  'BITS/PIXEL:', F8.S,//, lx, 'MEAN  SQUARE  ERROR: ' ,F9.5, ' 
RETURN 
END 


1  1*4 

t  X*4 
!  1*4 

1  1*4 


%') 
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SECTION  NINE 


TRANSMAPS  MODULE  #3:  MAPS  DECOMPRESSION  AND  RESOLUTION  IMAGE  FORMATION 


9.1  Rrogram  Characteristics 


Rrogram  Names:  DMA PS  or  DM 


Subroutines:  USERD 

FILESD 
SETUPD 
GAZGIZ 
LDCSET 
SFDMAP 

Files:  MAPS.DAT  (input) 

DMAPS.DAT  (output) 
LEVEL.DAT  (output) 

Task  Build  Options:  MAXBUF  *  1024 


Task  Size:  18720 


9.2  Source  Listing 


The  COMMENT-annotated  source  listing  for  DMAPS  follows: 


1 1 1 -77 


UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 


MAPS  Decompression  and  Leva!  Image  Formation: 


TransMAPS  J-l 


DNAPS 


PROGRAM  DMAPS 


I 

I  TransMAPS  Module  |3:  MAPS  Decoaprcsslon  &  Level  Image  Poraatlon 
I 


♦ 

I 

I 

I 

♦ 


Control  Data  Corporation  -  1982 


Flies: 

Unit 

Name 

Content 

From/To 

Type 

in 

2 

MAPS 

MAPSel  stream,  512 

byte  rec. 

NAPS 

FIXED 

SEO 

Out 

3 

DMAPS 

MAPS  Decompressed 
subframes 

Image, 

or 

or 

ADAPT 

DirrER 

RASTER 

FIXED 

SEO 

Out 

4 

LEVEL 

Level  (Resolution) 
subframes 

Image, 

or 

ADAPT 

RASTER 

FIXED 

SEQ 

User  Interaction:  No  parameter  inputs  required 


Program  Structure: 


PROGRAM  DMAPS 

CALL  USCRD  Dummy  routine  lor  future  user  Interaction 
CALL  F1LE5D  Open  tiles  and  read/vrlte  headers 
CALL  SETUPD  Establish  control  tables 

call  gazGIZ  Establish  zigzag  to  raster  conversion  table 
call  locset  Establish  byte  to  level-multlplet  table 
Establish  intensity/pattern  decode  table 
Loop  on  subframes 

call  sfdmap  Convert  MAPSel  stream  to  decompressed  and 
resolution  (level)  Images  by  subframe 


COMMON  Block  Communication: 


/BLKPAT/  Block/pattern  mode  by  level  Length:  21 

SETUPD « SFDMAP 

lbpt(5)  [1*21  Block(O) /pattern (l)  tor  levels  1-5 

I0BP(4,4)  (1*21  Lov/Hlgh  Index  by  Quadrant .Pattern 

/Dmapsf/  Decompression  end  level  imege  output  Length:  1025 
FlLESD, SFDMAP 

NSO  [1*21  Number  of  total  plxels/subf reme 

I5F (1024)  (Byte)  Decompressed  subframe  array 

L8FO024)  [Byte]  Level  image  subfraae  array 

/GAZGIZ/  zigzag  to  raster  conversion  Length:  1024 

GAZGIZ, SFDMAP 

NZZ(1024)  (1*21  Zigzag  to  raster  conversion  table 


ooooonnnnononnooonnonoonoooonnonnoonn 


K  maps  Decompression  and  Level  Image  Foraatloni  TransMAPS  3*2  DMAPS 


/HEADER/ 

Standard  MAPS  file  header  Lengths  32 

DMAPS, FILESD, SETUPD 

IF1LE 

(1*2) 

File  type 

INAME(B) 

(Byte] 

User-selected  laege  naee 

NL 

(1*2] 

Number  of  lines  In  souree  ieage 

NP 

(1*2] 

Nuaber  of  pixels  In  source  leege 

NB 

(1*2) 

Number  of  bits/pixel  In  source  leage 

" 

KSF 

(1*2) 

Kind  of  subfraee  8x8  16x16  32x32 

IGRD 

(1*2] 

Subframe  grids  square(0]/staggered(l ) 

NS 

(1*4) 

Total  subframe  count 

MC 

(1*4) 

MAPSel  count 

NIXBP 

(1*2] 

Packed  block(0]/pattern(l)  mode  (rt-lft) 

IBV(5,2) 

(1*2] 

Optimal  pattern  biases  by  level, low/high 

IPADC7) 

(1*21 

Space  for  future  extension 

/LDCODC/  Byte-packed  Level  decode  Lengths  1024 

LDCSET,SFDMAPS 


LDC(4 , 256 )  (1*2]  Byte  to  level-eultlplet  decoding  teble 


I 


I 


« 


/NDATA/ 

MAPSel  stream 

data 

Lengths  260 

FILESD, SFDMAP 

MLOC 

(1*2) 

Current 

location  In 

MAPS  Input  buffer 

MSFC512) 

(Byte] 

MAPSel 

stream  Input 

buffer 

HLVL 

( 1*2  J 

Current 

packed  level 

byte 

NM 

(1*2) 

Number 

of  levels/byte  8x8(4), 

16x16 

or  32x32(3) 

KM 

(1*21 

Current 

position  of 

level  In  byte  (1-nm) 

-J 


/mdcode/  intenclty/pettern  decode 

SETUPD, SrDMAP 


Lengths  2560 


mdC(2S6,4,S)  (1*2]  Intensity/pattern  decoding  teble  by 

intensity /pet tern  byte, quadrant, level 

C - - - ................. - - - ... - ........ - - 

COMMON  /HEADER/  IFILt , IN AM£( 6 ) , NL, NP, NB,K5F, I6RD, NS, NC,M1XBP, 

♦  1BV(5,2), IPAD ( 7 ) 

BYTE  INAME 
INTEGER**  NS,MC 
INTEGER**  LOOPSF 
CALL  USERD 

CALL  FILESD 

TYPE  500, INAME, NL,NP 

500  FORMAT(/ , IX, 'MAPS  DECOMPRESSING  IMAGE  ' ,8A1 , ' , '15, '  LINES  BY', 

♦  15,'  PIXELS') 

CALL  SETUPD 

DO  110  LOOPSF*!, NS  1  1*4 

110  CALL  SFOMAP 

CLOSE(UNIT*2) 

CLOSE (UNIT*3 ) 

CLOSE (UNIT**) 

END 
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MAPS  Decompression  and  Level  Image  Formations  TransMAPS  3*3 


DMAPS/USCRD 


SUBROUTINE  USERU 

Purpose:  User  Interaction  t or  MAPS  decompression  and  level  Image 
formation 

Dummy  routine  for  possible  future  extensions 
CALLed  from:  DMAPS 


TYPE  500 

500  FORMAT (/, IX, 46 ( 1H*) ,/, IX, 44X IX , 

♦  '*  MAPS  DECOMPRESSION /RESOLUTION  IMAGE  MODULE  *' , / , IX , ** • , 44X , 

♦  IX, 46(lH»),//,3X#'NO  USER  INPUTS  REQUIRED' ) 

RETURN 

END 


t 


uuuuuu 


maps  Decompression  end  Level  leege  Formation:  TransNAPS  3-4 


DMAPS/F1LESD 


SUBROUTINE  FILESD 

Purpose:  Open  tiles,  read/write  standard  MAPS  needers 
CALLed  fro*:  DMAPS 


COMMON  /HEADER/  IFILE, INAME(S) , NL , NP, NB, KSF , NS , NC, NIXBP , 

♦  IB V ( 5 , 2 ) , 1 PAD ( 7 ) 

BYTE  INAME 
INTEGER**  NS.MC 

DIMENSION  JHEAD(32) 

EQUIVALENCE  ( JHEAO( 1 ) , IFILE) 

COMMON  /MDATA/  MLOC , MSF ( 51 2) ,NLVL, NM ,KM 
BYTE  MSF 

COMMON  /DMAPSF /  NSQ  ,  1ST ( 1 024 ) , LSFC1024) 

BYTE  1SF,LSF 

DIMENSION  JSF (512) 

EQUIVALENCE  ( JSF t 1) , ISF C 1 ) ) 

DATA  ISF/1024*0/,LSF/1024*0/ 

OPEN (UNI T*2 .TYPE* 'OLD' ,NAME*'MAPS ', FOR Mb 'UN FOR MATTED ' , 

4  RECORDTYPE*'f'lXED* ) 

READ  (2)  JHEAD 
IF(lFILE.EQ.l)  GO  TO  110 
TYPE  500 , IFILE 

500  FORMAT (/.IX,'***  FILE  TYPE', 13,'  NOT  NAPSel  STREAM') 

STOP 

110  READ  (2)  MSF 

NLOC*l 
NLVL«N6F(1) 

IF(MLVL.LT.O)  MLVL*MLVL*256 
MLVL*MLVL+1 

NM»4 

IF(KSF.NE.B)  NM>3 
KM*0 

NSO«KSF*KSF 
LSQsNSQ/4 
DO  120  J*l,32 
120  JSF( J)aJHEAD( J) 

OPEN (UN1T*3, TYPE* 'MEN', NAME*'DMAPS',FORN*'UNFORMATTED', 

♦  RECORDTYPE*' FIXED' , RECORDS 12EaLS0) 

JSF ( 1 )*2 

NRITE  (3)  (1SF(J),J*1,NS0) 

OPEN ( UN I T*4, T Y PE* 'N EM '.NAME* 'LEVEL '.FORM* 'UNFORMATTED', 

♦  REC0RDTYPE*'FIXED',REC0RD5ISEMLS6) 

JSF ( 1 )*3 

NRITE  (4)  (ISF(J),J«1,NSQ) 

DO  130  J*1 , 32 
130  JSF( J)*0 

RETURN 


onnoooonoon 


MAPS  Decompression  and  Level  Image  Formation: 


>S  3-5  OMAPS/SETUPD 


SUBROUTINE  SETUPD 

Purpose:  EstabXlsn  dacoaprasslon  control  tables 

Establish  zigzag  to  subframe  raster  conversion  table 
Establish  byte  to  level  multiple  esolutlon  decode  table 
Establish  intensity/pattern  byte  decode  table 
by  byte  value,  quadrant,  level 

CALLed  from:  dnaps 
calls:  gazgiz.ldcset 


COMMON  /HEADER/  iriLE,lNANE(«),NL,NP,NB,KSF,IGRD,NS,MC,NlXBP 
1BV  C5, 2 ) , IPAD (7) 

BYTE  INANE 

1NTEGER«4  NS,NC 

COMMON  /MOCOOE/  MDC(2S6,4,5) 

BYTE  MDC 

COMMON  /BLKPAT/  LBPT ( 5 ) , IOBP ( 4 , 4 ) 

DATA  IOBP/1 ,1,2,2,  2, 1,2,1,  1,2, 1,2,  2, 2, 1,1/ 

KSFT*KSF 

CALL  GAZGIZCKSFT) 

CALL  LDCSET(KSFT) 

M«2 

DO  110  J*l,5 

LBPT(J)S(M1XBP/M).AND,*1 

M«2*M 

DO  150  LV*1,5 
KBPT*LBPT ( LV  ) 

DO  140  JO«l,4 

DO  130  1*1,256 
N*I  — 1 

IF(KBPT.EO.O)  GO  TO  12L 
IPAT=M.AND.*3 
INT=M-1PAT 
!BP>10bP( JQ,IPAT+1 ) 

JBV*I8V(LV,IBP) 

MslNTtJBV 
IF(M.LT.O)  N*0 
IF (M ,GT . 255)  M*255 
IF (M.Gl . 127 )  M«M-256 
MOC(I,dO,LV)«M 
CONTINUE 
CONTINUE 
RETURN 


uouuu 


MAPS  Decompression  end  Level  Image  Formation:  TransMAPS  3-6 


DNAPS/GAZGIZ 


SUBROUTINE  GAZGIZ(FSFT) 

Purpose:  Establish  zigzag  to  subiraae  raster  conversion  table 
CALLed  trom:  SETUPD 


MAPS  Decompression  end  Level  Inage  Formation:  TransNAPS  3-7  DNAP5/LDCSET 


SUBROUTINE  LDCSET(KSFT) 

C 

C  Purpose:  Establlsn  oyte  to  level  multlplet  resolution  decode  table 
C  by  NAPSel  sequence  (1-4  for  8x8,  1-3  for  16x16  6  32x32) 

C  and  byte  value 

C 

C  CALLed  from:  SETUPD 
C 

O— — .......... - - - - - - ... - ... - ............... 

COMMON  /LDCODi/  LDC (4,256) 

DIMENSION  M(3,6),LVLT(36b) 

DATA  LDC/10244-1/ 

DATA  LVLT/366*-!/ 

DATA  M/1,6,64,  1,64,8,  8,1,64,  64,1,6,  8,64,1,  64,8,1/ 

1FCKSFT .NE.8)  GO  TO  200 
DO  120  1*1,256 
LPACK*I-1 
NT*1 

DO  110  J*l,4 

LDC(J,I)sU,PACK/MT).AND.*3 
110  MT*4*MT 

120  CONTINUE 

GO  TO  300 
200  LI-2 

DO  240  1 1=1 ,6 
L1>I 1-1 

DO  230  12*1 ,11 
L2*I2-1 

DO  220  13*1,12 
L3*I3-1 

DO  210  1P*1,6 

LV*Ll*Mll, IP) +L2*M(2, IP)*L3*N(3, IP) el 
1F(LVLT(LV).NE.-1)  CO  TO  210 
LI*LI*1 
LVLT  CLV)*LI 

210  CONTINUE 

220  CONTINUE 

230  CONTINUE 

240  CONTINUE 

DO  260  1T*1 , 366 
1*LVLT( IT) 

IF(I.EO.-l)  GO  TO  260 

LPACKzlT-1 

MT*1 

DO  250  J*1 , 3 

LDC (J, 1+1 )*CLPACK/MT),AND,*7 
250  MT*6*MT 

260  CONTINUE 

300  CONTINUE 

RETURN 
END 
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HAM  Decompression  and  Level  image  Formation: 


TransMAPS  3*8 


DMAPS/SFDMAP 


SUBROUTINE  6FDMAP 

Purpose:  Convert  MAPSel  ctraaa  to  dacoapraaaad  and  resolution  (level) 
Images  By  subframe 

Recursion  on  NAPSels  (automatic  zigzag  order) 

Retrieve  level  code 

Retrieve  intensity/pattern  byte 

Asynchronously  input  next  MAPS  record  as  needed 
Loop  on  MAPSel  quadrants 

Convert  intensity/pattern  byte 
Loop  on  pixels  elthln  quadrant  in  zigzag  order 
Determine  subtrees  raster  address 
Set  decompressed  and  level  Image  pixel 
Return  for  next  MAPSel  until  subframe  completed 
Output  decompressed  mnd  level  ln.age  subframes 

CALLed  from:  DMA PS 


COMMON  /NDATA/  MLOC, MSFC bl 2 ) , MLVL, NM ,KN 
BYTE  MSF 

COMMON  /DMAPSF /  NSO, 1SF ( 1024) , LSF( 1024) 
BYTE  1SF,LSF 

COMMON  /GAZGIZ/  NZZ( 1024) 

COMMON  /LDCODE/  LDCl4,2bb) 

COMMON  /MDCODE/  MDC(25b,4,S) 

BYTE  MDC 

COMMON  /BLKPAT/  LBPT (S ) , 1QBP(4 , 4 ) 
DIMENSION  MSTEP(S) 

DATA  MSTEP/1,4,14,64,256/ 

JZZ-0 

100  KM>KM+1 

IF (KM .LE . NM)  GO  TO  120 
KMsl 

ML0C«ML0C4l 

IF(MLOC.LE.512)  GO  TO  110 
NLOCsl 

READ  (2)  MSF 
110  NLVLbMSF(MLOC) 

IF ( MLVL.LT. 0)  NLVL>MLVL+25b 
NLVLsMLVLel 

120  LVsL0C(KN,NLVL) 

HLOC«MLOCel 

IF ( MLOC • LE. SI 2 )  GO  TO  130 
MLOC«l 

READ  (2)  MSF 
130  MlaMSF(MLOC) 

IF(LV.GT.O)  GO  TO  200 
ilZZsJZZ+1 
!RSTmNZZ( JZZ) 

I5F(1RST)«MI 

LSF(IRST)>0 

IF(JZZ.GE.NSQ)  GO  TO  300 
GO  TO  100 
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NAPS  Decoapresslon  and  Level  reage  Formation:  TransKAPS  3*9 


dmaps/sfdmap 


200 


210 

220 

300 


NSTP*NSTEP(btf ) 

IPATsO 

IF (LBPTCLV ) .NC.O )  IPAT*H  .  AND.  »3 

L»32*LV'f**IPAT 

IFCL.GT.127)  U»L-256 

IF(NI.LT.O)  M1MI  +  256 

NIaNlel 

DO  220  J0*l,4 

I*MDC(NI,JQ,LV) 

DO  210  Jsl.MSTP 
JZZejZZ+1 
1RST=NZZ( JZZ) 

1SF ( IRST ) =1 
-  LSFC1RST)*L 
CONTINUE 

IF(JZZ.LT.NSU)  GO  TO  100 
•RITE  (3)  C1SFIJ) , J*1 ,NS0) 

•RITE  (4)  (LSF(J) , Jel.NSO) 

RETURN 

END 


I 
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SECTION  TEN 


TRANSMAPS  MODULE  #4:  MAPS  ADAPTIVE  IMAGE  SMOOTHING 
10.1  ft-ogram  Characteristics 


frogram  Names:  ADAPT  or  AD 


Subroutines: 

USERA 

FILESA 

SET  UFA 

LINPIX 

WGTSET 

UNIFRM 

GAUSS 

SFLOAD 

SFUPDT 

SFADPT 

Files: 

DMAPS.DAT 

(input) 

LEVEL.DAT 

(input) 

ADAPT.DAT 

(output) 

Task  Build  Options: 

MAXBUF  * 

1024 

Task  Size:  27968 


10.2  Source  Listing 

The  COMMENT-annotated  source  listing  for  ADAPT  follows: 


1 1 1-87 


nnooonnnoononnnoononoonoooooonnnonoonooonnonooon 


MAPS  Adaptive  laaqe  Smoothing:  TransMAPS  4*1 


AOAPT 


PROGRAM  AOAPT 

♦  ——————————— —————— 

I  I 

I  TransMAPS  Module  *4:  MAPS  Adaptive  laaqe  Smoothing  I 


I 

1 

Control  Data 

Corporation  -  1912 

Files: 

Unit 

Name 

Content 

From/To 

Type 

m 

2 

DMAPS 

maps  Decompressed  Image, 
subframes 

DMAPS 

OIRCCT 

In 

3 

LEVEL 

Level  (Resolution)  Image, 
subframes 

DMAPS 

DIRECT 

Out 

4 

ADAPT 

Adaptively  smoothed  Image, 
subframes 

DIFFER 

RASTER 

FIXED  SEQ 

User  Interaction:  in  Subroutine  USERA 


Convolution  Melqhtlnq  specification 
Dither  Amplitude  Specification 

Program  structure: 


PROGRAM  ADAPT 

CALL  useka  Specify  convolution  «elghtlng  and  dither 
CALL  FILESA  Open  files,  check  Integrity,  read/write  headers 
CALL  setupa  Establish  control  tables*  subframe  partition 
call  linpix  establish  zigzag  to  line,  pixel,  t  raster 
Index  conversion  tables 

CALL  SGTSET  establish  preosummed  convolution  melghts 
CALL  UNirRM(LVL)  Establish  uniform  wlndoe  eelqhts 
or  Call  GAUSS(LVL)  Establish  Gaussian  elndoa  melghts 
Loop  on  subframe  rows  In  line  direction 

CALL  sfload  initialize  first  subframe  in  row  and  Its 
surround 

Loop  on  subframes  within  row 

call  srupoT  Update  to  next  subframe  fc  Its  surround 
CALL  SFADPT  Adaptively  smooth  NAPSels  In  subframe 

COMMON  Block  Communication: 


/GAZGIZ/  Zigzag  to  raster  conversion  Length!  1024 

LINPIX , SFADPT 

NZZU024)  (1*2]  Zigzag  to  raster  conversion  table 
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MAPS  Adaptive  laage  smoothing:  TransMAPS  4-2 


ADAPT 


/HEADD/  Standard  maps  flic  header  froa  dmaps  Lengths  32 
AD APT, FILES A ( SETUPS 


IFILED 

11*2) 

File  type 

INAMED ( 8 ) 

(Byte) 

User-ielected  laage  name 

NLD 

CI*2) 

Number  of  lines  In  source  laage 

NPD 

(1*2) 

Nuaber  of  pixels  In  source  Image 

NBD 

(1*2) 

Number  of  blts/plxel  In  source  laage 

KSFD 

(1*2) 

Kind  of  subfraae  8x8  16x16  32x32 

1GRDD 

(1*2) 

Subfraae  grids  square(0)/staggered(i) 

NSD 

(1*4) 

Total  subframe  count 

MCD 

(1*4) 

MAPSel  count 

MIXBPD 

(1*2) 

Packed  block(0)/pattern(l )  node  (rt-lft) 

1BVD  C  5 , 2 ) 

(1*2) 

Optimal  pattern  biases  by  level, low/high 

IPADD ( 7  ) 

(1*21 

Space  for  future  extension 

/HEADL/  Standard  MAPS 

FILESA 

file  header  from  LEVEL  Lengths  32 

IF1LEL 

(1*2) 

File  type 

IN AMEL ( 8  ) 

(Byte) 

User-selected  laage  name 

NLL 

(1*2) 

Number  of  lines  In  source  Image 

NPL 

(1*2) 

Number  of  pixels  In  source  laage 

NBL 

(1*2) 

Number  of  blts/plxel  In  source  laage 

KSFL 

(1*2) 

Kind  of  subfraae  8x8  16x16  32x32 

IGRDL 

(1*2) 

Subframe  grids  square(0)/staggered(l) 

NSL 

(1*4) 

Total  subfraae  count 

MCL 

(1*4) 

MAPSel  count 

MIXBPL 

(1*2) 

Packed  block(0)/pattern(i)  mode  (rt-lft) 

IBVLC5.2) 

(1*2) 

Optimal  pattern  biases  by  level, lom/nlgn 

IPADLC7 ) 

(1*2) 

Space  for  future  extension 

/LPZZ/  Zigzag  to  Une/plxel  conversion  Lengths  2048 

LIKPIX ,WGT5ET,SFADPT 

LZZ( 1024)  (1*2)  Zigzag  to  line  conversion  table 

kzz( 1024)  (1*2]  Zigzag  to  pixel  conversion  table 


/SFDATA/  Adaptive  laage  suotrame  data  Lengths  512 

FILES*, SFADPT 

isfa ( 1024 )  (Byte)  Adoptive  laage  subfraae  array 

/SFiNPT/  Input  Image  (Dmaps, LEVEL)  control  Lengths  12 

SETUPS , SFLOAD , SFUPDT 


K1ST 

(1*2) 

First  pixel  In  buffer 

KLST 

(1*2) 

Last  pixel  In  buffer 

LIST 

(1*2) 

First  line  in  buffer 

LLST 

(1*2) 

Last  line  In  puffer 

KREC 

(1*4) 

Record  number  of  current  subfraae 

KBCK 

(1*4) 

Record  number  of  adjacent 
roe  subfraae 

prior 

KFUD 

(1*4) 

Record  number  of  adjacent 
row  subfraae 

following 

NREC 

(1*4) 

Total  nuaber  of  Input  file 

records 
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MAPS  Adaptive  Image  smoothing:  TrantMAPS  4-3 


ADAPT 


/SFLOOP/  Subframe  control  parameters  Length?  6 

ADAPT, SETUPS, LINPIX , SFUPDT,SFADPT 

KSF  11*21  Subframe  size:  edge 

NSO  (1*2)  Subframe  size:  number  of  total  pixels 

NLS  (1*21  Number  of  subframes  in  line  direction 

NPS  (1*21  Number  of  subframes  in  pixel  direction 

KLS  (1*21  Current  subframe  index  in  line  direction 

KPS  (1*21  current  subframe  index  in  pixel  direction 

/SHARE/  dm aps/LEVEL  data;  shared  with  weight  Length:  2210 

window  during  weight  table  generation 
WG1SET,UNIFRM, GAUSS, 

SfLOAD,SFUPDT,SFADPT 

ISFD (65 , 34 1  (Byte!  DMAP6  subframe  and  surround  data  array 

1SFL(65,34)  (Bytel  LEVEL  subframe  and  surround  data  array 

Equlvalenced  with: 

wndw (31,31)  [R*4]  Convolution  weight  window 

/WGTDIT/  Convolution  and  dither  selections  Length:  5 

USEKA , MG TSET, GAUSS, SFADPT 


KCN 

(1*2) 

Kind  of  convolution  weight: 
uniform(U)  or  Gausslan(G) 

SIC 

(R*41 

Multiple  of  Gaussian  sigma  at 
window  corner 

DIT 

(R*4) 

Dither  amplitude 

/NGTTBL/  Pre-summed  convolution  weights  Length:  6120 

MGTSET, SFADPT 

wgt (9, 340)  (R*4)  weight  table  addressed  by: 

surround  index, 

compound  level/quadrant-zlgzag  index 

NAPSel  Surround  Conventions: 


Pixel  direction 

Target  NAPSel  weight  Index 

L  I  I  Region  Quadrant  123456789 

1  112314  Associated  Surround  Index 

n  I  l 

e  6  0  1  2  3  5  6  7  9  10  11 

I  I 

ID  516718  7  1  432876  12  11  10 

II  I  I 

V  r  9  I  10  11  |  12  10  2  13  14  15  9  10  11  5  6  7 

e  I  I 

C  11  3  16  15  14  12  11  10  8  7  6 

t  I  I 

1  13  I  14  15  I  16 

O  I  I 

n 
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MAPS  Adaptive  laage  Saoothlngi  TransMAPS  4-4 


ADAPT 


lrlLE‘>*lNANED(8>,NLD,NPD,NBD,*SFD,IGRDD,NSDIHCD, 

♦  M1XBPD,IBVD(5,2),IPADD<7) 

BYTE  1NAMED 

INTEGER**  NSD.MCD 

COMMON  / SFLQOP/  ASF , NSO, NLS ,NPS , KLS, KPS 
CALL  USERA 
CALL  FILESA 

TYPE  500,1NAMED,NLD,NPD 

500  FORMAT(/,lX,'NAPS  ADAPTIVE  SMOOTHING  IMAGE  '.BAl.'.'IS. 

♦  '  LINES  BY', 15,'  PIXELS') 

CALL  SETUPA 

DO  120  ILSsl,NLS 

KLS>ILS 

KPS*1 

CALL  SFLOAD 

DO  110  I P5= 1 , NPS 
KPS=IPS 
CALL  SFUPDT 
CALL  SFADPT 
110  CONTINUE 

120  CONTINUE 

CL0SE(UNIT*2) 

CL0SE(UN11«3) 

CLOSE ( UN IT=4 ) 

END 
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MAPS  Adaptive  laage  Seoothlng:  TransMAPS  4-5 


ADAPT/USER A 


SUBROUTINE  USEkA 

Purpose:  User  Interaction  tor  MAPS  adaptive  laage  saoothlng 
Convolution  weighting 
Dither  Aaplltude 

CALLed  troa:  ADAPT 


500 

♦ 

♦ 

100 

510 

♦ 

1 


520 

♦ 

110 

530 

♦ 


540 

♦ 


COMMON  /WGT01T/  KC» , SI G , DIT 

DATA  KCW/lriG/,SlG/2.0/  i  Default 

DATA  DIT/4.0/  !  Default 

TYPE  500 

FORMAT! /, IX, 34 ! 1 H* ) , / , 1 X . , 32X , '*',/, IX. 

'*  NAPS  ADAPTIVE  SMOOTHING  MODULE 
/,1X,'*',32X,'*',/,1X,34!1H*)) 

TYPE  510, KCw 

FORMAT! //,3A, 'CONVOLUTION  HEIGHT I NG:',//,5X, 

'UNIFORM  OR  GAUSSIAN?  !U  G)  ' , A1 ) 

ACCEPT  1 , LIT 
FORMAT! 10A1 ) 

IFILIT.EO. 1HU)  KCW*LIT 
IFILIT.E0.1HG)  KCW>LIT 
IFIKCx.tU. 1HU)  GC  TO  110 
TYPE  520, S1G 

FORMAT!5X, 'SIGMA  multiple  AT  HINDOM  CORNER?', F5.1.2X, 

'!/  *  NO  CHNG )  '  ) 

ACCEPT  *,S1G 
TYPE  530, DIT 

FORMAT!/,3X, 'RANDOM  DITHER 5X , 'AMPLITUDE?' . F5. 1 , 24X , 

'!/  *  NO  CHNG)') 

ACCEPT  *»DIT 
TYPE  540 

FORMAT!//,3X, 'USER  SPECIFICATION  COMPLETE: ',/, 3X , 28 ! 1H* ),//, 5X , 
'REVIEW?  1 Y  OR  N)  N') 

ACCEPT  1 , LIT 

IFtLIT.EO. 1HY)  GO  TO  100 
RETURN 
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MAPS  Adaptive  Iaage  smoothing:  TransMAPS  4*6 


ADAPT/F1LESA 


SUBROUTINE  FILESA 

Purpose:  Open  tiles,  check  Integrity,  reed/»rlte  headers 
CALLed  tron:  adapt 


COMMON  /HEAD D/  IFILED, lNAMED(B) , NLD, NPD , NBD, K6FD, IGRDD, N5D, NCD 
4  MIXBPD, IBVD(5,2),IPADD(7) 

BYTE  1 NAMED 
INTEGERS  NSD,MCD 

DIMENSION  JHEADDC  32) 

EQUIVALENCE  ( JHEADDf 1 ), IFILED) 

COMMON  /HEADL/  IF 1LEL, IN AMELIA ) , NLL , NPL, NBL, KSFL, IGRDL,N8L, MCL 

♦  MIXBPL, IBVLC8 , 2) ,1PADL(7) 

BYTE  IN AMEL 
1NTEGEKM  NSL, MCL 

DIMENSION  JHEADK32) 

EQUIVALENCE  CJHEADLt 1 ), IFILED 
COMMON  /SFDATA/  ISFA(1024) 

BYTE  ISFA 

DIMENSION  JSF(S12) 

EQUIVALENCE  ( JSF( 1 ) , ISFA ( 1 ) ) 

OPEN ( UNI T*2, TYPE* 'OLD ', NAME* 'DNAPS FORN« 'UNFORMATTED ' , 

♦  REC0RDTYPE*'F1XFD', ACCESS* 'DIRECT' ) 

READ  (2'1 )  JHEADD 
IF ( IGRDD. NE. 0 )  GO  TO  210 

0PEN(UNIT«3,TYPE*'0LD',NANE«'LEVEL',F0RM*'UNF0RMATTED', 

♦  REC0RDTYPEs'F1XED',ACCES5«'DIRECT'> 

READ  (3'1)  JHEADL 
IF ( IGKDL . NE.O)  GO  TO  210 
DO  110  J*1,B 

1F(INAMED(J).NE,INAMEL(J))  GO  TO  220 
110  CONTINUE 

IF(NSD.NE.NSL)  GO  TO  220 
IF(MCD.NE.NCL)  GO  TO  220 
KSOT*KSFD*KSFD 
LSQ*KSQT/4 

OPEN (UNI T*4,TYPE*'NEW' ,NANE* 'ADAPT *, FORM* 'UNFORMATTED' , 

♦  R£C0RDTYPE*'E1XED' , RECORDSIZE*LSO) 

DO  120  J*1 , 32 

120  JSF(J)eJHEADDU) 

JSF(1)*4 

WRITE  (4)  (ISFA(J) ,J*1 ,KSQT) 

GO  TO  300 

210  TYPE  810 

810  FORMAT (/ , IX » '***  NON-SQUARE  GRID,  ADAPT  PRECLUDED') 

STOP 

220  TYPE  520,INAME0,INAMEL,NDS,NSL,NCD,MCL 

820  FORMAT (/ , IX,'***  DMAPS  AND  LEVEL  FILES  UNMATCHED:',/, 

♦  BX, 'IMAGE:  ' , 8A1 , '  VS  ',SA1,/, IX, 'SUBFRAMES:', 17, 

♦  '  vs',i7,/,ix,'MAP5eis:'i9,'vs',i9) 

STOP 

300  CONTINUE 

RETURN 
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MAPS  Adaptive  Image  smoothing!  TrancMAPS  4-7 


ADAPT/SETUPA 


SUBROUTINE  SETUPA 

Purpose:  Establish  adaptive  smoothing  control  tables 

Establish  inter-subframe  position  controls 
Establish  zigzag  to  line,  pixel,  and  subframe  raster 
conversion  tables 

Establish  pre-sumned  convolution  weights 

CALLed  from:  ADAPT 

CALLS!  L1NP1X , UGTSET 
C 

C— — — — — . . . . . 

COMMON  /HEADD/  1 FILED , I NAMED ( 8 ) , NLD , NPD, NBD , KSFD , IGRDD, NSD , NCD 
♦  MIXBPD, IBVD(5 , 2),IPADD(7) 

BYTE  INAMED 
INTEGEhM  NSD, MCD 

COMMON  /SFLOOP/  KSF , NSO,NLS , NPS , KLS,KPS 

COMMON  /SFINPT/  K 1ST , KLST , LIST, LLST.KREC, KBCK ,KFMD, NREC 

1NTEGER*4  KKEC , KBCK , KF«D, NREC 

KSF*KSFD 

NS0»KSF*K5F 

NLS=(NLD-1)/KSF+1 

NPS=(NPD-1)/KSF>1 

K1ST*KSF  +  2 

KLST«2*KSF*1 

L1ST«2 

LLST*KSF+1 

KREC*1 

KBCK»KREC-NPS 

KFWD»KREC+NPS 

NREC*NSD+ 1  1  1*4 

CALL  LINP1X 

CALL  HGTSET 

RETURN 

END 
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MAPS  Adaptive  laage  smoothing j  TrensMAPS  4-8 


ADAPT/L1NPIX 


SUBROUTINE  LINPIX 

Purposes  Establish  zigzag  to  line*  pixel,  and  subtraae  rastar 
Index  conversion  tables 

CALLed  troas  SETUPA 


COMMON  /SFLQUP/  KSF,NS0,NL5,NP5,KLS,KPS 
COMMON  /CAZG1Z/  NZZ( 1 024 ) 

COMMON  /LPZZ/  LZZ( 1024) ,KZZ( 1024) 

DATA  NZZ/1024*0/ 

KSFT*KSF 

DO  120  JZZ>1 , 1024 

MZZsJZZ-1 

KMSK»MZZ.ANU.«525 

LMSKs(MZZ/2).AND.*»25 

K*0 

LeO 

Mel 

DO  110  jel,5 
KTeKMSK. AND.  *  1 
K*K.0R. (M«KT) 

LT*LMSK . And . *  1 
L*L.0R.(M*LT) 

KMSKbKMSK/4 
LMSKbLMSK/4 
110  Me2*M 

LZZ(JZZ)eLt2 
KZZ(JZZ)bK+2 
IRST«KSFT*L*MI 
120  NZZ(JZZ)eiasr 

RETURN 

END 
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NAPS  Adaptive  Image  Smoothing:  TransMAPS  4-9 


SUBROUTINE  HCTSET 


AOAPT/HGTSET 


Purpose:  Establish  ore-summed  convolution  weights 
Loop  on  levels  of  target  NAPSel 

Establish  convolution  weight  window: 
uniform  or  Gaussian 

Loop  on  pixels  in  first  NAPSel  quadrant:  zigzag  order 
Determine  line  and  pixel  ranges  for  9  distinct 
NAPSel  and  surround  regions 
Loop  on  regions 

Loop  on  lines ,  pixels  within  regions 
Sum  convolution  welgnts  over  region 
Set  weight  by  region  and  pixel  zigzag  Index 

CALLed  from:  SETUPA 
CALLS:  UNIFRM, GAUSS 


CONMON  /WGTD1T/  KCW,5IG,DIT 
COMNON  /SHARE/  1TERP(2210) 

DIMENSION  wNDW (31,31) 

EQUIVALENCE  ( WNDW ( 1 , 1 ) . ITENPt 1 ) ) 

COMMON  /LPZZ/  LZZC1024 j ,KZZ(1024) 

COMMON  /WGTTBL/  WGT (9,340) 

DIMENSION  LWl(i) , LWL ( 3 ) , K W 1 < 3 1  , K WL C 3  ) 

DIMENSION  N0SZ(5),LWC(5) ,LWNDW(5) 

DATA  MGSZ/l,4,16,64,256/,I.*C/l,2,4,8,16/,LWNDW/lr3,7,15,31/ 

1W«0 

LW1 ( 1 )»1 
KtalCDsl 
DO  160  LVz2 , S 
LVL*LV 

IF(KCW.NE.lnG)  CALL  UNIFRM(LVL) 

IF(KCW.EQ.IHG)  CALL  GAUSS(LVL) 

NQsMOSZ (LV ) 

LWCT«LWCILV) 

LWL(3)*LWNDW{LV) 

KWL(3)»LwNDw{LV) 

DO  ISO  JZZal.NO 
IW=IW+i 
L*LZ2( JZZ1-1 
K*KZZ( JZZ)-1 
LWL(1)«LWCT-L 
Lwl (2)>L*L( 1 )ti 
LWL(2)*LWLU)4LWCT 
LW1 C  3 )  =  L«L ( 2 ) 1 1 
KWL( 1 )*LwCT-K 
KWl ( 2 )*KwL ( 1  )  4 1 
KWL(2)«KWLC1)4LWCT 
KW1(3)*KnL12)*1 


MAPS  Adaptive  leage  smoothing:  TransMAPS  4-JO 


ADAPT/uCTSET 


no 

120 

130 

140 

150 

160 


DO  140  LREG*1,3 
LH1ST*L*1  ( LREG ) 

LHLSTataL(LPEG) 

00  130  KREG*1 . 3 
KNlST*K«l(KREG) 

KaLSTBKHL(KREG) 

J«sJ«*l 

»T»0. 

IF l (L*15T.GT.L»LST) .OR. ( KtolST. GT. KMLST ) )  60  TO  130 
DO  120  LM>liNlST«LNLST 

DO  110  K*BKMlST,KhLST 
HTsMT«WNOW(KM,LM> 

CONTINUE 

NG1(JN,I")«*T 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 


I 


o  o  o  o  o  n 


ouuuuo 


MAPS  Adaptive  laegc  Saoothlng:  TrensMAPS  4-12 


ADAPT/GAUSS 


SUBROUTINE  CAUSS(LVL) 

Purposes  Estaollsn  noraellzed  Geusslen  window  weights  for  level  LVL 
CALLed  froos  UGTSCT 


110 

120 


210 

220 


COMMON  /NGTDIT/  KCM,S1C,DIT 
COMMON  /SHARE/  1TEHP(2210) 

DIMENSION  wNDa 1 31 , 31  ) 

EQUIVALENCE  (wNuW(ld) . I TEMPI  1 } ) 

DIMENSION  LwC(S),LNNDN(5).CORNER(5) 

DATA  LNC/1,2,4,8, lfe/,L»NDw/l,3,7, 15 , 31 / ,CORNER/0 
LWCTaLNCtLVL) 

NHNDH>LNNDM(LVL) 

CbCOMNER(LVL) 

CSO«2.*C*C 

rS02»-(SlC*SlC)/(2.*C50) 

SUM«0. 

DO  120  L*1 , NWNOa 

TBL-LHCT 

»»*T*» 

DO  110  Ksl.NMNDN 

X«A-LNCT 

XX*X*X 

UT>EXP(FS02*(XX4Ty)) 

SUMasUMeeT 

WNDw (K ( L) a*T 
CONTINUE 
DO  220  Lb1,n«ND* 

DU  210  K*1 , NNNDN 
HNDN (K , L)a«NDW CK , L) /SUN 
CONTINUE 
RETURN 
END 


l.,3.,7.,15./ 
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NAPS  Adaptive  laage  smoothing:  TransMAPS  4-13 


ADAPT/SPLOAD 


i 


1 


SUBROUTINE  SFLOAD 


Purpose:  Initialize  first  target  subfraae  and  its  surround  for  each 
new  line-direction  subfraae  row 

Blame  surround  along  left  laage  edge 
Load  last  line  of  pixels  froa  prior-roe  subfraae 
Load  first  line  of  pixels  froa  folloelng-rou  subfraae 
Load  target  subfraae 


CALLed  froa:  adapt 


1 


I 


I 


C 


110 


120 


130 

140 


150 

160 


COMMON  /SF1NPT/  K1 ST , KLST , LIST , LLST ,KREC ,KBCK,KFND,NREC 

INTEGER*4  KREC , KBCK , KFKD , NREC 

COMMON  /SHANE/  1SF0( 63 , 34 ) , ISFL165 , 34) 

BYTE  ISFD, ISFL 
LPaLLSTtl 
MK1ST-1 
DO  110  L*1 ,LP 
ISFD<K,L)*0 
ISFLIK,L)«0 
DO  120  Kxl.KLST 
ISFD( K , 1 ) «0 
ISFD(K,LP)>0 
ISFL (K , 1 ) «0 
I5FL(K,LP)»0 
KREC*KREC*1 
KBCKsKBCK+1 
KFHO«KFNDel 

IF(KBCK.LE.l)  GO  TO  140 

READ  (2#KBCK)  ( ( ISFD ( K , L ) ,  PURIST , KLST ) ,L«L1ST, LLST) 

READ  (3*KBCK)  ll ISFLtK ,L) ,K«K1ST, KLST) ,L«L1ST, LLST) 

DO  130  K*K1ST,KLST 
ISFD(K,1 )*ISFD(K ,LLST) 
lSFL(K,l)sJSFL(r,LLST) 

1FCKFND.GT.NREC)  GO  TO  160 

READ  (2'KFMD)  (USFD(K,L),K*K1ST, KLST), L«L1ST, LLST) 

READ  (3'KFMD)  ((ISFL(K,L),K*K1ST, KLST), L«L1ST, LLST) 

DO  ISO  K*K1ST,KL5T 
ISFD CK,LP)«1SFD(K, LIST) 

ISFL(K,LP)*ISFL<K,L1ST) 

CONTINUE 

READ  (2'KREC)  l(I5FD(K,L),KaKI5T, KLST), L«L1ST, LLST) 

READ  (3'KKEC)  ( C ISFL CK , L) , KaKl ST ,KLST) ,L>L1ST,LLST) 
RETURN 
END 


l  1*4 
1  1*4 

l  1*4 


i 


I 
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MAPS  Adaptive  Image  smoothing:  TrancNAPS  4-14 


ADAPT/SFUPDT 


SUBROUTINE  SFUPDT 

Purpose:  Update  target  subframe  and  Its  surround 

Transfer  left  surround,  prior-line  surround,  following- 
line  surround,  and  target  subtrees  froe  right  surround 
area  to  target  area 

Load  last  line  of  pixels  from  upper  right  corner 
surround  suotrame 

Load  first  line  of  pixels  from  lower  right  corner 
surround  subframe 

Load  right  surround  subframe  (next  target  subframe) 

Note:  "Loads*  are  replaced  by  "Blanks"  whenever 
subframe  references  would  be  beyond 
image  boundaries 


CALLed  from:  ADAPT 

Ceometry  of  decompressed  and  resolution  Image  Input  buffers: 


Pixel  Direction  — — > 

last  line  of  pixels  from 
record  KbCK-1  record  KBCK  record  KBCKel 
upper  left  upper  surround  upper  right  corner 


L 

corner 

• 

*  1 

1 

•  | 

1 

>1 

n 

*1 

» 

1 

e 

left 

*1 

1 

1 

surround 

*1 

1 

right  surround 

( 

D 

1 

*1 

Target 

1 

(next  target 

1 

1 

l 

*  l 

Subframe 

1 

subframe) 

1 

1 

record 

♦  1 

1 

I 

V 

KREC-l 

*l 

record  KREC 

1 

record  KRECel 

1 

last  column 

*  1 
♦1 

1 

INPUT  REGION, 

1 

of  pixels 

*1 

• 

ALL  SUBFRAMES 

1 

n 

>*♦********»»•* 

*1 

M 

lower  left 

lower  surround 

lower  right  corner 

corner 

first  line 

of 

pixels  from 

record  kfwd- 

1 

record  KFwD 

record  KFMDel 

COMMON  /SF LOOP/  KSF ,NSQ,NLS,NP5,KLS,KPS 

COMMON  /5F1NPT/  MST, KLST, LIST, LLST,KREC, KBCK, KFttD'NREC 

INTEGERS  KREC,hBCK,KFWD,NREC 

COMMON  /SHAKE/  1SFD (65 , 34 ) , ISFL (65, 34 ) 

BYTE  ISFD, ISFL 

LPKLLST+1 

KP*K5F*1 
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NAPS  Adaptive  Ieege  smoothing:  TransMAPS  4-15 


ADAPT/Sf UPDT 


DO  120  Lal,LP 
KK«K5F 

DO  110  Kal , KP 

KKsKK+1 

ISFD(K,L)ai&FD(KK,L) 

110  ISFL(K,L)bISFL(KK,L) 

120  CONTINUE 

DO  130  L>1,LP 
ISFD(KlST,L)aO 
130  ISFL(K15T,L)aO 

DO  140  KaKIST, KLST 
ISFDCK, 1 )a0 
ISFDCK, LP)aO 
ISFLCK , 1 )sO 
140  ISFLCK, LP)>0 

IFCKPS.Eu.NPS)  CO  TO  200 
KRECaKREC+1 
KBCKsKBCK+1 
KFMDaKFNDtl 

IFCKBCK.LE.l)  GU  TO  160 

READ  (2'KBCK)  ( C 1SFD C K , L ) , KaKIST , KLST) , LaLlST , LLST) 
READ  C3'KBCK)  ( (ISFLIK.L) , KaKIST, KLST) , L«L1ST , LLST) 
DO  150  KbkISI.KLST 
ISFDCK , 1 )*ISFDCK ,  LLST) 

150  ISFLCK, l)aISFLCK, LLST) 

160  1FCKFND.GT.NREC)  GO  TO  160 

READ  C2*KFnD)  CCI5FDCK,L),KaMST, KLST), LaLlST, LLST) 
READ  (3'KFMD)  ((ISFLCK, L), KaKIST, KLST), L«L1ST, LLST) 
DO  170  KaKIST , KLST 
ISFD(K,LP)BISFD(K,L1ST) 

170  1SFL(K,LP)bISFL(K,L1ST) 

180  CONTINUE 

READ  ( 2 *KRLC )  ((ISFDCK, L), KaKIST, KLST), L*L1ST, LLST) 
READ  (3'KREC)  C ( ISFLCK ,L) .KaKIST, KLST) ,LbL1ST, LLST) 
200  CONTINUE 

RETURN 
END 
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MAPS  Adaptive  Image  Smoothing:  TransMAPS  4*16 


ADAPT/SFADPT 


SUBROUTINE  SFADPT 

Purpose:  Adaptively  smooth  all  MAPSels  >  2*2  in  target  subframe 
Recursion  through  all  MAPSels  in  target  subframe, 
zigzag  order 

Establish  line  and  pixel  indices  for  sixteen  target 
and  surround  elements 
Loop  on  target/surround  elements 
Retrieve  element  Intensity 
Retrieve  element  level;  set  activation  If 

surround  element  no  more  than  one  level  below 
target  MAPSel 

Loop  on  pixels  in  first  (upper  left)  target  MAPSel 
quadrant  in  zigzag  order 

Determine  symmetric  terget'plxel  zigzag  addresses 
In  other  three  quadrants 
Accumulate  convolution  sums  for  target  pixels 
from  each  quadrant  for  active  elements  from 
nine  associated  target/surround  regions 
Reset  (smooth)  target  pixel  from  each  quadrant 
with  additive  random  dither  If  designated 
Return  for  next  MAPSel  until  subframe  Is  exhausted 
output  adaptively  smoothed  subframe 

CALLed  from:  ADAPT 


COMMON  /WGTD1I/  KC*,SIG,DIT 
COMMON  /SFLOOP/  KSF , NSO , NLS, NPS , KLS , KPS 
Common  /gazgiz/  nzz(1024) 

COMMON  /LPZZ /  LZZ( 1U24) * KZZ( 1024) 

COMMON  /WGTTdL/  WGT (9,340) 

COMMON  /SHAKE/  ISFD(65 , 34) , ISFL(65, 34) 

BYTE  I5FD, 1SFL 
COMMON  /SFOATA/  1SFAU024) 

BYTE  1SF  A 

DIMENSION  LVSZ(S),MOSZ(5),MXZZ(5),MSZ(5),NHSZ(5),LVUGT(5),IWT(9,4) 
DIMENSION  LSUR(4),KSUR(4),SUKI(16),SUKL(16),LQZZ(4),SW(4),SWI(4) 
DATA  LVSZ/4,16,64,256,1024/ 

DATA  MOSZ/ 1,4,16,64,256/ 

DATA  MXZZ/3 , 15,63,255,1023/ 

DATA  MSZ/2,4,8,16,32/ 

DATA  MHSZ/1 ,2,4,8,16/ 

DATA  LV WGT/ 0,0, 4, 20,84/ 

DATA  I NT /l, 2, 3, 5,6,7,9,10,11,  4,3,2,8,7,6,12,11,10, 

4  13,14,15,9,10,11,5,6,7,  16,15,14,12,11,10,8,7,6/ 

DATA  IR , JR/240/ 

JZZ*1 
100  {.sLZZ(JZZ) 

KmKZZ(JZZ) 

LVL*I5FL(K,L) 

IFCLVL.LT. 0)  LVL»LVL*256 
LV«LVL/32 

IF(LV.LE.l)  GO  TO  180 
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haps  Adaptive  Image  smoothing:  TraneMAPS  4-17 


ADAPT/SFADPT 


110 

120 


130 


140 

ISO 


160 

170 


LSURC1)BL-1 
LSUR ( 2  )*L 

LSUR(3)*L*NHSZ(LV) 

LSUR(4)BL+HSZCLV> 

KSURC17-K-1 

KSUR(2)*K 

KSURC3)*K+HHSZ(LV) 

KSUR(4)=K+HSZ(LV) 

JT*0 

DO  120  LTsl,4 
LS*LSUR(LT> 

DO  110  KT*1,4 
KSSKSURCKT) 

JT*JTtl 

IT«ISFD(KS,LS) 

IFCIT.LT.O)  IT«IT*256 
SURI ( JT) *IT 
LVT*ISFL(KS,LS) 

IFCLVT.LT. OJ  LVT«LVT*256 
SURLCJT)*!. 

IF((LVL-LVI).GT.44)  SURL(JT)>0. 

continue 

CONTINUE 

JnTsLVnGTCLV) 

NQ*NOSZ(LV) 

DO  170  LUCZZ=1,NQ 
LOZZ ( 1 )=LUCZZ-1 
LQZZ(4)BNXZZ(LV)-LQZZ(1) 

LOZZ ( 2 )*(LOZZ( 1). AND, "1252). OR. (L0ZZC4) .AND. *525) 
LOZZ (J)B(LOZZ(l). AND. "S25).OR. (LQZZC4) .AND. *1252) 
DO  130  JOBl,4 
5N ( JO) =0 . 

snicjo)=o. 

J«T=J«fT+l 
DO  150  J  =  1 , 9 
HTxkGTCJ.JNT) 

DO  140  J0>1 . 4 
1* I NT  C J . JO ) 

SNT=NT*SURL(I) 

SN(J0)=5N(J0)*S«T 

SWI(JQ)sSHl(JQ)«SNT*SUKI(I) 

CONTINUE 
00  160  J0*1 , 4 
I*INT ( 5 , JO) 

AlmSURICl) 

IF(SW(JO).GT.O.)  AI*SWICJQ)/SN(JO) 

IFCDIT.NE.O.)  AI»AItDIT*(RAN(IR,JR)-0.5) 

IT«AI+0.5 

IFC1T.LE.0)  IT*0 

IF (IT. GT. 255)  IT*255 

IFCIT.GT.127)  IT«IT-256 

JJZZsJZZ+LOZZCJQ) 

IRSTxNZZCJJZZ) 

ISF  A ( IRST) *IT 
CONTINUE 
GO  TO  200 


1 1 1-104 


NAPS  Adaptive  laage  smoothing:  Tr«n**APS  4*18 


aoapt/sfadpt 


180  IRST«NZZCJZZ) 

ISFA(IR5T)*XSFD(K,L) 
IFCLV.EQ.O)  GO  TO  200 
DO  190  J*l,3 
JJZZ=JZZ+J 
L«LZZ(JJZZ) 

K*KZZ( JJZZ) 

IRST=NZZ( JJZZ) 

190  ISFA(IR5T)*1SFD(K,L) 

200  INCZZsl 

IF(LV.NE.O)  XNCZZ»LVSZCLV) 

JZZ*JZZ+INCZZ 

IF(JZZ.LE.NSO)  GO  TO  100 

MRITE  (4)  CISFACJ) , J*1 ,N50) 

RETURN 

END 
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SECTION  ELEVEN 


TRANSMAPS  MODULE  #5:  MAPS  DIFFERENCE  IMAGE  FORMATION 


» 


11.1  Program  Characteristics 


fV-ogram  Names:  DIFFER  or  DF 

f 


Subroutines:  USERE 

FILESE 
SET  U  PE 
SFDIFF 
E  STATS 


Files:  EPRINT.DAT  (listing) 

IMAGE.DAT  or  DMAPS.DAT  (input) 
DMA  PS .  DAT  or  ADAPT.DAT  (input) 
ERROR.DAT  (output) 

Task  Build  Options:  MAXBUF  *  1024 

ACTFIL  =  5 


» 


Task  Size:  25312 


» 


11.2  Source  Listing 


The  COMMENT-annotated  source  listing  for  DIFFER  follows: 


ft 


I 
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Difference  laage  and  Statistics  Foraatlon:  Trans*APS  5-1 


DIFFER 


PROGRAM  DIFFER 


TransMAPS  Module  *5:  Difference  laage  fc  Statistics  Foraatlon 


Files:  Unit  Naae  Content 


Control  Data  Corporation  -  1982 
F roa/To  Type 


Oat  1  EPklNT  Difference  statistics  report  Printer  FORMATTED 

In  2  IMAGE  source  image,  subfraaes  SUBFRM  FIXED  SEQ. 

or  Dmaps  Decompressed  laage,  subfraaes  DHAPS 

In  3  DMAPS  Decompressed  laage,  subfraaes  DMAPS  FIXED  SEQ. 

or  ADAPT  Adaptively  smoothed,  subfraaes  ADAPT 

Oat  4  ERROR  Difference  laage,  subfraaes  RASTER  FIXED  SEQ. 

User  Interaction:  In  Subroutine  U5ERE 


laage  Pair  selection  for  Differencing 
Difference  Image  Control 

Program  structure: 


PROGRAM  DIFFER 

call  USERE  specify  Image  pair  to  difference  and  output  type 
CALL  FILESE  Open  files,  check  Integrity,  read/mrlte  headers 
CALL  SETUPE  Initialize  statistical  sums  and  arrays 
Loop  on  subframes 

call  sfdiff  Difference  Images  and  accumulate  statistics 
call  estats  output  fidelity  measures  and  laage  distributions 

COMMON  Block  Communication: 


/DIFF /  User  Image  controls 

DIFFER, USERE, FILESE, SETUPE 


Length:  8 


I1T¥P(6) 

I2TYP(b) 

FAC 


(Byte!  Filename  for  Input  laage  tl 
[Byte!  Filename  for  Input  laage  s2 
CR*4]  Difference  Image  control  parameter: 

<  o  fora  signed  and  biased  difference 
*  o  find  difference  statistics  only 
>  0  fora  amplified  absolute  difference 
FAC  Is  aaplif lcatlon  factor 


/DIFFOP/  Derived  difference  controls 
SETUPE, SFOirr 


Length:  t 


Cop  ’  of  FAC 

Activation  factor  for  signed  difference 
Activation  factor  for  amplified  difference 
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Difference  leege  end  Statistics  Formation:  TransMAPS  5-2 


DIFFER 


/headi /  Standard  maps  file  header,  image  tl  Length!  32 
DIF  FER/FILESE 


c 

IFILE1 

(1*2) 

File  type 

c 

INAMEl(B) 

(Byte) 

User-selected  laage  name 

c 

NL1 

(1*2) 

Number  of  lines  In  source  laage 

c 

NP1 

(1*2) 

Nuaber  of  pixels  in  source  laage 

c 

NB1 

(1*2) 

Nuaber  of  bits/pixel  In  source  laage 

c 

KSF1 

(1*2) 

Kind  of  subfraae  8x8  16x16  32x32 

c 

1GRD1 

(1*2) 

Subframe  grid!  square(0)/stagger 

ed(l) 

c 

NS1 

(1*4) 

Total  subframe  count 

c 

MCI 

(1*4) 

MAPSel  count 

c 

NIABP1 

(1*2) 

Pacxed  block(0)/pattern(l)  mode 

(rt-lft) 

c 

IBV1C5, 

2) 

(1*2) 

Optimal  pattern  biases  by  level. 

low/high 

c 

IPADK7) 

(1*2) 

Space  for  future  extension 

c 

/HEAD2/ 

Standard  maps 

file  header,  image  *2  Length! 

32 

c 

DIFFER, F1LESE 

c 

1F1LE2 

(1*2) 

File  type 

c 

1NAME2 ( 8 ) 

(Byte) 

User-selected  laage  naae 

c 

NL2 

(1*2) 

Number  of  lines  In  source  image 

c 

NP2 

(1*2) 

Number  of  pixels  In  source  laage 

c 

NB2 

(1*2) 

Number  of  bits/pixel  In  source  laage 

c 

KSF2 

(1*2) 

Kind  of  subfraae  8x8  16xi6  32x32 

c 

IGKD2 

(1*2) 

Subframe  grid!  square(0)/staggered(i ) 

c 

NS2 

(1*4) 

Total  subfraae  count 

c 

MC2 

(1*4) 

MAPSel  count 

c 

MIXBP2 

(1*2) 

Packed  block(0)/pattern(l)  mode 

(rt-lft) 

c 

1BV2C5, 

2) 

(1*2) 

Optimal  pattern  biases  by  level. 

loe/hlgh 

c 

r 

IPAD2 ( 7 ) 

(1*2] 

Space  for  future  extension 

c 

/SFDAT1 / 

Subframe  data, 

input  image  ll  Length! 

512 

c 

r 

SFDJF'F 

c 

r 

ISF1 (1024 ) 

(Byte) 

laage  ll  subfraae  data  array 

c 

/SFDAT2/ 

Subframe  data. 

Input  image  12  Length! 

512 

c 

r 

SFD1FF 

c 

r 

ISF2 ( 1024  ) 

(Byte) 

Image  12  subfraae  data  array 

c 

/SFDAT3/ 

Subframe  data. 

difference  Image  Length! 

513 

F1LESF.,SFDIFF 

nsq  (3*2]  Nueber  of  total  plxels/subf raae 

ISF3C 1024)  (Byte]  Difference  laage  aubfraae  data  array 


/STATSE/  laage  distribution 

SETUPE,SFDIFF,ESTATS 


Lengths  8576 


1 l VS12 ( 64 , 64 )  [1*4]  laage  11  vs  laage  12  2-D  hlstograa 

I 1 H ( 64 )  (1*4)  laage  il  hlstograa 

12H(64)  (1*4)  laage  12  hlstograa 

11M2HC64)  (1*4)  Difference  hlstograa 

(All  distributions  in  steps  of 
4  grayscale  level  lncreaents) 


uuuuuuuuuuu 


Difference  laage  and  statistics  Formation:  TransMAPS  5-3 


DIFFER 


/SUMS/ 


Fidelity  aeasure  accumulations 
SETUPE , 5FDIFF  ,ESTAT5 


Length!  20 


PIX 

SUM1 

SUMSQ1 

DIFF 

DIFFSQ 


tR«8)  Total  pixel  count  for  subframes 
CH*8 j  sue  of  leage  II  grayscale  values 

CR’SJ  Sun  of  squares  of  iaage  SI  values 

[R*8]  Sun  of  difference  grayscale  values 

tR*Bj  sun  of  squares  of  difference  values 


COMMON  /HEAD1 /  IF1LE1 , 1 NAMEl 1 «) ,NL1 ,NP1 f MB1 ,KSF1 , ICRD1 ,NS1 ,MC1 # 
NIXBP1,IBV1(S,2),1PAD1(7) 

BYTE  1NAME1 
INTEGER*4  NSl.MCl 

COMMON  /HEAD2/  IFILE2 , IN AME2( 8 ) , NL2, MP2 , NB2,K5F2, 1GRD2 ,NS2 ,MC2 , 
M1XBP2, IBV2(5,2) ,1PAD2C7) 

BYTE  INAME2 
INTEGER**  NS2.MC2 

COMMON  /DIFF/  I1TYP(6),I2TYP(8)#FAC 
BYTE  I1TYP.I2TYP 
INTEGER**  LOUPSF, ISTAR4 
DIMENSION  FNAMLS (6 i * ) 

BYTE  FN AMES 

DATA  FN AMES  /1HI , 1 HN , 1  HA , 1HG, 1HE, 1 H  , 1HD, 1HM, 1HA, 1HP, 1HS, 1H  , 
1HL,1HE,1HV,1HE,1HL,1H  ,  1  HA , 1HD, 1HA , 1  HP, 1NT , 1H  / 

CALL  USERE 
CALL  FILESE 
I1«IF1LE1 
IF(Il.EO.O)  11=1 
12=IF1LE2 
IFCI2.E0.0)  12=1 

TYPE  SOO.INAMEl, (FNAMES(J,Il),Jni,5),INANE2,(FNANES(J,I2),J«l,5) 
FORMAT ( /(IX,' DIFFERENCING  '.8*1*'  TYPE  ',5X1,',  VS  '#BA1, 

'  TYPE  #,SA1) 

CALL  SETUPE 

DO  110  LOOPSFnl,NSl  1  1*4 

CALL  SFDIFF 

BPPl=Nbl 

IFCMCl.Ut.O)  GO  TO  210 

15TAR4*(MCl+2)/J  *  1*4 

IF(KSFl.EQ.H)  15TAR«n{NCl*3)/4  1  1*4 

ISTAR*«8*(MC1*ISTAR4)  1  1*4 

DENBKL1 

BPP1*ISTAR4/DEN 

BPPlnBPPl/NPl 

WRITE  (1,600)  1NAME1,(FNAMES(J,I1),J=1,5) , BPP1 
FORMAT! 1 Hi , bX , * DIFFERENCE  STATISTICS  1 *,//, 10X, 'IMAGE! I  *,8X1, 
TYPEl  ',5Al,',  BITS/PIXEL»',F8.5) 

BPP2>NB2 

IF(MC2.EO.O)  GO  TO  220 

ISTAR4=(MC2*2)/3  *  1*4 

IF ( KSF2 . EU . 8 )  ISTAR4*(MC2*3)/4  1  1*4 

ISTAR4»8*(MC2*ISTAR4)  »  1*4 

DENBNL2 

BPP2*I5TAR*/DEN 

BPP2«BPP2/NP2 
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DIFFER 


220  WRITE  (1,610)  INAME2 , (FNANESt J, 12) , 0*1 ,5) ,BPP2 

610  roRNAT(12X,'VS',/,10X,'INAGE2!  ',>41,',  TYPES  ',541, 

♦  ',  BITS/PIXELS', Ft. 5,/) 

IFCFAC.LT.O. )  WRITE  (1,620)  MSI 

620  FORMATOSX,  'SIGNED  DIFFERENCE  XNACF  PRODUCED t ',  17, 

♦  '  SUBFRAMES',/) 

IF(FAC.CT .0. )  WRITE  (1,630)  NS1,FAC 
630  FORMAT( 15X, 'AMPLIFIED  DIFFERENCE  IMAGE  PRODUCED! ', 17 , 

♦  '  SUBFRAMES,  AMPLIFICATION ', F6. 1 ,/ ) 

CALL  ESTATS 

CLOSE ( UN 1TB 1 ) 

CLOSE ( UN 1T*2) 

CLOSE (UNIT> 3) 

IF (FAC.NE.O . )  CLOSE ( UN I T*4 ) 

END 
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DIFFER/USERE 


c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  USERE 

Purpose:  User  interaction  for  difference  ioage  and  fidelity 
performance  evaluation 

Subframe  Image  type  for  Input  Image  el  (IMAGE  or  DMAPS) 
SuDframe  Image  type  for  input  image  12  (DMAPS  or  ADAPT) 
Difference  control  parameter 

CALLed  from:  DIFFER 


COMMON  /DIFF/  ilTYP(6),12TYP(b),FAC 
BYTE  I1TYP, I2TYP 
DIMENSION  NAMES(6,3) 

BYTE  NAMES 

DATA  I1TYP/1H1,1HM,1HA,1HG,1HE,0/ 

DATA  I2TYP/1HD,1HM,1HA,1HP,1HS,0/ 

DATA  FAC/10./ 

DATA  NAMES/1H1,1HM,1HA,1HG,1HE,0,1HD,IHN,1HA,1HP.1HS,0, 

♦  1HA,1HD,1HA,1HP,1HT,0/ 

11*1 

12*2 

TYPE  500 

500  FORMAT! /, IX, 32 ( 1H*),/, IX, '*',30X, '•',/, IX, 

♦  '*  NAPS  DIFFERENCE  IMAGE  MODULE  *', 

♦  /, IX, '*',30X, '*',/, IX, 32(1H*)> 

100  TYPE  510 

510  FORMAT!//, 3X, 'INPUT  IMAGE  TYPES S ',//, 7X , 

♦  'I  -  IMAGE  (ORIGINAL  SOURCE)  IMAGE1  ONLY',/,7X, 

♦  'D  -  DMAPS  (MAPS  DECOMPRESSED)', /,7X, 

♦  'A  -  ADAPT  (ADAPTIVELY  SMOOTHED)  1MACE2  ONLY') 

TYPE  520, I1TYP 

520  FORMAT!/, 5X,'1MAGE1?  (I  D)  ' , Al , '  l ' ,«A1 , ') ' , A1 ) 

ACCEPT  1 , LIT 
1  FORMAT ( 1 0A1  ) 

IFILIT.EG. 1HI )  11*1 

IF(LIT.EO.IHD)  11*2 

DO  110  1*1,6 

110  I1TYP(I)*NAMES(I,I1) 

IFCI1.NE.2)  GO  TO  130 
12*3 

DO  120  1*1,6 

120  I2TYP(1)*N AMES (1,12) 

130  TYPE  530 , I2TYP 

530  FORMAT (5X, '1MAGE27  (D  A)  ' , Al , ' ( ' , 4A1 , ') '  ,  Al  ) 

IF(I1.E0.2)  GO  TO  150 
ACCEPT  1 ,LIT 
IF(LIT.EO.IHD)  12*2 
IF(LIT.EQ.IHA)  12*3 
DO  140  1*1,6 

140  12TYP(I)*M AMES (1,12) 


!  Default 
!  Default 
!  Default 
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DIFFER/USERt 


150 

540 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 


550 

♦ 


TTPE  540, FAC 

FORMAT!/, 3X, 'DIFFERENCE  IMAGE  TYPE I ' ,//» 7X, 

'AMPLIFICATION  FACTOR ',/, 9X, 

'<0  SIGNED  AND  BIASED  DIFFERENCE  IMAGE', /,9X, 

'>0  NO  DIFFERENCE  IMAGE,  STATISTICS  ONLX',/,9X, 

'>0  AMPLIFIED  DIFFERENCE  IMAGE* ,/, 1SX , 

'(VALUE  IS  AMPLIFICATION)', //,5X, 

'FACTOR?', F5.0,5X,'(/  s  NO  CHNG) ') 

ACCEPT  • , FAC 
TTPE  550 

FORMAT (//,iX, 'USER  SPECIFICATION  COMPLETES ',/, IX , 28 ( 1H*) ,//, 5X  , 
'REVIE*?  (X  OR  N)  N') 

ACCEPT  1 , LIT 
IF(LIT.EQ.m)  GO  TO  100 
RETURN 
END 
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SUBROUTINE  F1LESE 
C 

C  Purpose:  Open  files,  check  integrity,  end  read/write  file  headers 
C 

C  CALLed  front  DIFFER 

c 

O— — .....................  ....... - ................................ 

COMMON  /HEAD1 /  IFILE1 , I N ANE1 ( 8 ) , NL1 , NP1 , N81 ,KSF1 , IGRD1 , NS1 ,MC1 , 

♦  MIXdPI , IBV1 (5,2} .IPAD1 (7) 

BYTE  INAME1 

INTEGER**  NS1.MC1 

DIMENSION  JHEAD1 (32) 

EQUIVALENCE  ( JHEAD1 ( 1 ) , IFILE1 ) 

COMMON  /HEAD2/  I FILE2 , 1NAME2 ( 8 ) , NL2 , NP2 , NB2 ,KSF2 , ICRD2 , NS2 , MC2 , 

♦  MIXBP2,IbV2C5,2),IPAD2(7) 

BYTE  INAME2 

INTEGER**  NS2.MC2 

DIMENSION  JHEAD2 ( 32 ) 

EQUIVALENCE  ( JHEAD2 ( 1 ) , IF1LE2 ) 

COMMON  /OIFF/  UTYPU),12TYP(t>),FAC 

BYTE  I1TYP.I2TYP 

COMMON  /SFDAT3/  NSQ,ISF3(1024> 

BYTE  1SF3 

DIMENSION  JSFC512) 

EQUIVALENCE  ( JSF ( 1  )  , ISF3C 1  }  ) 

OPEN (UN IT* 2, TYPE* 'OLD' , NAME*! 1TYP,F0RM*' UNFORMATTED', 

♦  RECORDTYPE* 'FIXED') 

READ  (2)  JHEAD1 
I1*1FILE1 

IF((I1.EO.O).OR.((11.GE.2).AND.(11.LE.4))>  GO  TO  110 
IT*1 

TYPE  5U0.IT.il 

500  FORMAT ( /.IX,'***  FILE', 12,'  TYPE', 12,'  INVALID  INPUT') 

STOP  1 

110  0PEN(UN1T*3.TYPE*'0LD',NAME*12TYP,F0RM*'UNF0RNATTED', 

♦  REC0RDTYPE*'F1XED') 

REAO  (3)  JHEA02 
I2*1FILE2 

1F((12.EQ.O).OR.((I2.GE.2).AND.(I2.LE,4)>)  CO  TO  120 
IT*2 

TYPE  500, IT, 12 
STOP  2 

120  IFUSF1.EQ.KSF2J  GO  TO  130 

TYPE  510.KSF1 ,KSF2 

510  FORMAT!/, IX, '•*•  SUBFRAME  SIZES  DISAGREE! ',13, '  VS', 13) 

STOP 

130  IF(NS1 .E0.NS2)  GO  TO  200 

TYPE  520 , NS1 , NS2 

520  F0RMAT(/,1X,'*«*  SUBFRAME  COUNTS  DISAGRECl ', 17 , '  V S',I7) 

STOP 
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200  NSQ>KSF1»KSF1 

IFIFAC.EO.O.)  GO  TO  250 
LSO«NSQ/4 

OPEN (UNI Tb4,TYPEb 'NEW' *NAMEb 'ERROR' ,FORMb*UNFORNATTED' 
♦  RECORDTY PE* 'FIXED ' ,  RECORDS  I  ZEB(<SO) 

DO  210  J*l,32 
210  JSF(J)bJHEADUJ) 

ZFXLE3«5 

ZF(I2TYP(1).E0.1HA)  IFILE3*6 
IFCIlTYP(l).EU.lHD)  IFILE3*7 
JSF(1)bZFZLE3 

WRITE  (4)  USF3(J)  ,J*1,KSQ) 

DO  220  Jbi#32 
220  JSF(J)bO 

250  OPEN(UNITb1,TVPEb#NEW',NAMEb'EPRINT') 

RETURN 

END 


D1FFER/FILESE 


r 


i 


* 


> 


i 
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DIFFER/SETUPE 


SUBROUTINE  SETUPE 

Purposes  Initialize  statistical  sues  and  accueulatlon  arrays 
CALLed  front  DIFFER 


Common  /oiff/  iityp(6),i2TYP(6),fac 

BYTE  11TYP, I2TYP 

COMMON  /DIFFOP/  FACT, FS, FA 

COMMON  /SUMS/  PIX,SUM1 , SUM SOI , OIFF , OIFFSO 

REALMS  PIX.SUM1 ,SUMSQ1 ,DIFF, OIFFSO 

COMMON  /STATSE/  I 1 VSI2 (64, 64) , I1H(64) , I2H(64) , I1M2H(64) 

INTEGER**  I1VSI2,I1H,I2H,I1M2H 

FACTaFAC 

FS«1. 

FA»0. 

IFtFACT.LE.0.1  GO  TO  110 
FS*0. 

FA*FACT 

110  CONTINUE 
PIX*0.D0 
SUMlaO.DO 
SUMSQ1>0.D0 
DIFF=O.DO 
DIFFSQaO ,D0 
DO  130  Jsl.64 

DO  120  1*1 ,64 
120  IlVS12(l,J)sO 

I1H(J)«0 
12H(J)«0 

130  IlM2HCJ)sO 
RETURN 
END 


n  n  n  n  n  o  o 
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DIFFER/SFD1FF 


SUBROUTINE  SFD1FF 

Purpose:  Accuaulate  difference  statistics  and  generate  difference 
iaage  suofrane 

CALLed  froa:  DIFFER 


COMMON  /DIFFOP/  FACT, FS, FA 

COMMON  /SUMS/  P1X , SUM1 , SUMSOl ,D1FF , DIFFSO 

REAL*B  P1X.5UM1 .SUMSOl .DXFF.DIFFSO 

COMMON  /STATSE/  I 1 VSI2C64 ,64) , 1 1HC64) , I2HC64) , 11N2HC64) 
INTEGERS*  I1VSI2.I1H.12H, I 1M2H 
COMMON  /SFDAT1/  ISFK1024) 

BYTE  ISF1 

COMMON  /SFOAT2/  ISF2C1024) 

BYTE  1SF2 

COMMON  /SFDAT3/  NSO, ISF3 ( 1 024) 

BYTE  ISF3 

READ  (2)  CISF1CJ).J*1,NSQ) 

READ  (3)  CISF2CJ),J*1,NS0) 

DO  110  1*1, NSO 
I1*1SF1CI) 

IFCI1.LT. 0)  11*11+256 
12*1SF2 ( I ) 

IFCI2.LT. 0)  12*12+256 
1 1M2*1 1-12 
PIX*PIX+1.D0 
GS1=I 1 

SUM1*SUM1+GS1 

SUMSOl *SUMS01+GS1 *GS1 

GS1M2*11M2 

D1FF*DIFF+GS1M2 

D1FFS0*D1FFS0+GS1M2*GS1M2 

Jl«U/4+l 

J2*I2/4+l 

JlM2*llM2/4+33 

1FCJ1M2.LT. 1)  J1M2*1 

1FCJ1M2.GT.64)  J1M2*64 

I1VSI2CJ1,J2)*I1VSI2CJ1,J2)+1  1  1*4 

11HCJ1)*11HCJ1)+1  1  i*4 

I2HCJ2)«12HCJ2)+1  {  i*4 

I1M2HCJ1N2)*11M2HCJ1M2)+1  j  t*4 

IPOS*l 1  M2 

IFC1POS.lt. 0)  IPOSb-IPOS 
ID1FF*FS*C11M2+127)+FA*1P0S 
IFCIDIFF.Lfc.O)  1DIFF*0 
IFC1D1FF.GT.255)  IDIFF*255 
IFCIDIFF.GT.127)  X0XFF*IDirF-256 
ISF3  C 1 )*IDIFF 
110  CONTINUE 

1FCFACT.NE.0.)  SRITE  C4)  C ISF3 ( J ) , J«i , NSO ) 

RETURN 

END 
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\ 

SUBROLs  INE  ESTATS 

Purpose,  output  fidelity  Measures  and  Iaage  distributions 


CALLed  froa:  DIFFER 


i 


i 


s 


i 


< 


c - - - - - - .. 

COMMON  /SUMS/  PIX,5UM1,SUNSQ1»DIFF,DIFFSQ 
REALM  PIX.SUM1 ,SUMS01 ,DIFF,DIFFSQ 

COMMON  /STATSE/  I 1 VSI2 164, 64) , I1H (64 ) , I2H(64) , I iN2H(64) 
INTEGER*4  I l VSI 2 , I1H , I2H , I 1N2H 
DIMENSION  LULL C 04) .LINE (64). LSYMB( 11) 

INTEGER**  NRMPIX , ISIAR4 
REAL*8  SSUREL 

DATA  LBLL/29*1H  , 1HI , 1HM, 1HA, 1HG, 1HE, 1H  ,1H2,28*1H  / 

DATA  LSYNB/1H.,1H1,1H2,1H3,1N4,1H5,1H6,1K7,1HB,1H9.1H*/ 

AVDIFF*DIFF/P1X 

RATI0«DIFF58/P1X 

RMS*SQRT( RATIO) 

ERRsO. 

IF(SUMSOl.GT.O.DO)  ERR*1 00 . * (DIFFS0/SUMSQ1 ) 

REL*0. 

SS0REL=SUMSQ1-SUM1*SUMI/PIX 
lF(SSOREL.GT.O.l)O)  REL«1 00 . » l DIFFSO/SSQREL) 

■RITE  (1.640)  AVDIFF.RMS.ERR.REL 

640  FORMATdOX, 'DIFFERENCES,  IMAGE1-IMAGE2 J  MEAN '  ,  F8 . 3  ,  '  ,  RMS', 

♦  FW.J,',  MSE' , F9.5 , '%,  RMSE* , F9. 5 , '%'»/) 

NRNPIX*PIX/640.D0  1  1*4 

■RITE  (1,700)  NRMPIX 

700  FORMAT(20X, 'IMAGE  1  (UNIT  «',I6,'  PIXELS) ', 40X, 

♦  'DISTRIBUTIONS', /.70X, 'GRAY  SCALE  IMAGE  1  IMAGE  2',4X, 

♦  'DIFFERENCE  IMAGE1 -IMAGE2 ' ,/, 3X , '♦' ,64 ( 1H-) , '♦' ) 

DO  ISO  J»1 ,64 

DO  110  !■! , 64 
110  LINE ( I ) =1 H 

L1NE(J)»1H4 
DO  120  I>1,64 
ISTAR4allVS12(I,J) 

IF(ISTAR4,E0.0)  GO  TO  120 

II*ISTAR4/N8MP1X*1  1  1*4 

IF (II, GT. 10)  11*11 

LINEd)sLSYMB(II) 

120  CONTINUE 

LL*4* (J*l ) 

LU-LL+3 

LDL»4*(U-33) 

LDUaLDL+3 

WRITE  (1,710)  LBLL(J),LINE,LL,LU,I1H(J),I2H(J),LDL,LDU,I1N2N(J) 
710  FORMATdX, A1 ,  '  I  ' , 64A1 ,  '  I  ' ,  14 ,  '  TO ' ,  14 , 2 19 , 16,  '  TO', 15, Ill) 

ISO  CONTINUE 

WRITE  (1,720) 

720  FORMAT ( 3X ,'*',64(1H«),'*') 

RETURN 

END 
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TRANSMAPS  MODULE  #6:  SUBFRAME  TO  RASTER  CONVERSION 


12.1  fY-ogram  Characteristics 


fVogram  Names:  RASTER  or  RS 


Subroutines:  USERR 

FILESR 
SETUFR 
UNSQR 
UNSTGR 

Files:  IMAGE.DAT  (input) 

or  DMA  PS . DAT 
or  LEVEL.DAT 
or  ADAPT.DAT 
or  ERROR.DAT 

IRAST.DAT  (output) 
or  DRAST.DAT 
or  LRAST.DAT 
or  ARAST.DAT 
or  ERAST.DAT 

Task  Build  Options:  MAXBUF  =  1024 


Task  Size:  29664 


12.2  Source  Listing 


The  COMMENT-annotated  source  listing  for  RASTER  follows: 


TO-A128  982 
UNCLASSIFIED 


TRANSPORTABLE  MAI _ _  _ _ _ 

CORP  MINNEAPOLIS  MN  INFORMATION  SCIENCES  DIV 
A  E  LABONTE  JUL  82  9199588  RADC-TR-82-194 
F30682-80-C-0226 


l\ 


F/G  28/6 


NL 


Subframe  to  Raster  Conversion!  TransMAPS  6-1 


RASTER 


PROGRAM  RASTER 


C 

C 

C 

C 


TransMAPS  Module  »6*  Subfraae  to  Raster  Conversion 


c 

1 

1 

V 

c 

c 

Control  Data 

Corporation  -  1982 

c 

• 

•* 

Unit 

Mane 

Content 

Fron/To 

Type 

V 

c 

In 

2 

IMAGE 

source  laage,  subfranes 

8UBFRM 

DIRECT 

c 

or 

DNAPS 

Deconpressed  lnage,  subfranes 

DNAPS 

c 

or 

LEVEL 

Resolution  laage,  subfranes 

DNAPS 

c 

or 

ADAPT 

Adaptively  saoothed,  subfranes 

ADAPT 

c 

or 

ERROR 

Difference  laage,  subfranes 

DIFFER 

c 

Out 

3 

1RAST 

source  laage,  raster 

user 

SEGMENTED 

c 

or 

DRAST 

Deconpressed  lnage,  raster 

c 

or 

LRAST 

Resolution  laage,  raster 

c 

or 

ARAST 

Adaptively  saoothed,  raster 

c 

or 

ERAST 

Difference  laage,  raster 

c 

c 

User  Interaction: 

In  Subroutine  USERR 

laage  Type  Selection  for  Conversion 


Prograa  Structure: 


PROGRAM  RASTER 
CALL  U5ERR 
CALL  FILESR 
CALL  SETUP* 


Specify  laage  to  be  converted 
Open  flies ,  read  header,  check  type  Integrity 
Establish  partition  controls,  check  Inage 
size  Integrity 

IF  square  qrldi 

CALL  URSOR  Convert  1x8  16x16  32x92  subfranes  to  raster 
Loop  on  rows  of  subfranes  in  line  direction 
Loop  on  8-llne  seethes  within  rows 

Loop  on  subfranes  in  pixel  direction 
Input  subfrane 

Extract  line  segnents  for  swath 
Output  conpieted  lines  (burst  of  •) 
or  IF  staggered  grid: 

CALL  unstgr  Convert  SxR  staggered  subfranes  to  raster 
Preload  buffer  with  all  subfranes  with  first  line 
Loop  on  lines 

Output  current  line 

Replace  all  subfranes  needed  to  finish  next  line 


r  ‘ 


COMMON  Block  Connunlcatlon: 


.Blank. 

IBUFC4000 ,8) 


Length:  16000 
(Byte!  Block  or  recirculating  8-line  buffer 


Raster  lnage  data 

RASTER , OMSOR , UNSTGR 
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l«Mr«M  to  Motor  Conversion*  tnmnam  S-2  UlfU 

C  /MOM/  Square  grid  partition  control*  UengtM  ) 

C  IETUPR, UNSQR 

C 


c 

MRS 

(1*2) 

Nuaoer  of  pisei-dtrection  suofraoe* 

c 

MLS 

(1*2] 

auaoer  of  line-direction  sttifreaes 

c 

NINTH 

(1*2) 

Nuaoer  of  svatnaa/aaofraaa  (t  2  4) 

c 

c 

/DITCH/ 

Itaqqered  arid  partition  controls  Length*  it 

IETUPR , UN8TCR 

c 

NPIT 

(1*2) 

Nuaoer  of  pliel-dlrection  auofraaes  total 

c 

c 

NP8US) 

(1*2) 

Nuaoer  of  staggered  suofraaes  In  pisal 
direction  for  each  startline  ood  • 

c 

c 

IPSti(t) 

(1*21 

initial  pisal  of  first  staggered 

c 

c 

/HEADER/ 

itanoaro  MAPI  file  naader  Length*  22 

KASTeR.riLCIR, IETUPR 

c 

iriLE 

(1*2) 

rile  type 

c 

INANE(I) 

(Byte] 

User-selected  loage  naae 

c 

ML 

(1*2] 

Nuaoer  of  lines  in  source  laage 

c 

HP 

(1*2] 

Nuaoer  of  pisals  In  aource  laage 

c 

NB 

(1*2) 

Nuaoer  of  olts/plsei  In  aource  laage 

c 

Kir 

(1*7) 

Kind  of  suofraoe  tsl  lists  12*12 

c 

1GRD 

(1*2) 

luofraae  gridt  sguare(0)/staggerod(l) 

c 

Ml 

(1*41 

Total  suofraae  count 

c 

NC 

(1*4) 

MAPSel  count 

c 

HIXBP 

(l*2J 

Packed  oiocK(0)/patternd)  aode  (rt-lfti 

c 

IB 3) 

(1*2) 

Optiaal  pattern  otasas  oy  level, loe/nign 

c 

1PADC7) 

(1*2) 

C 

C  /OUTNH/  output  <11*  Identification  baagths  1 

C  RASTER  *  USCRR  •  F 1  UESR 

C 


c 

r 

NAMER(S) 

(Byte] 

Output  file  naae 

c 

/irDATA/  Sul 

tfraae  data 

Length* 

C 

r 

UNION, UNITCR 

C 

r 

lir(1024) 

(Byte) 

array 

c 

/iriCNP/  luofraae  control 

parameters 

Length* 

C 

r 

IETUPR, UNSQR 

,UNITCR 

c 

NUT 

(1*2) 

Nuaoer  of  lines  In  laage 

c 

NPT 

(1*2) 

Nuaoer  of  plsels  in 

laage 

c 

KIPT 

(1*2) 

luofraae  slset  edge 

c 

KIOT 

(1*2) 

luofraae  slsai  pisal 

count 

C 

c  /suirNN/  input  (lit  Identic icatlon  Length*  2 

C  USERK  , PILESH 

c 

C  NAHCP(S)  (Byte]  input  file  naae 

c 


t»  Miur  cwmiiMt  TrwUMI  !•) 


IUTt( 


COMMON  IMFIWMil) 

•m  nor 

COMO*  /NUOO/  IFIU,I«MKI)<U.*F,M#UF,!i 
il(OilMFI»(Y| 

•m  iiui 

IITUIIM  U.KC 
COMMON  /OIITM/  imi(t) 

im  m»ki 

0INKMAIOM  IMIlltIf.l) 

•ITC  MAMflM 


,M,IC»KI1IF 


MAMKJM/tMl.lMN.IMA.INO.IKK.tN 

.IK 

.IK  .IK  . 

IN  .IN  .IN  .IN  .IN  .IN 

.IK 

.IN  .IK  . 

1N0. INM.INA, INK, IKK. IK 

.IK 

»IM  .IK  . 

INk.INK.lNV.lNK.INA.tN 

.IK 

*IK  .IK  . 

INA.IN0.1NA.IMK.IKT.IN 

.IK 

.10  .IN  , 

1N1.1NA.INA.1M0.IHA.IM 

«tM0,lN-,INJ, 

INA.1NA.INA.IN0.IMM.IN 

.IMA 

.la-, ini. 

INC. IMA. IMA, I HO. INK. IK 

•  IMA 

.10-, too/ 

CAU.  UUM 
CAM.  FIUM 
CAM.  HTVFI 

jriLC«iribA«t 
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Annotation  and  laage  Assembly:  TransMAPS  7*4 


ANNOTE 


500 

♦ 

501 

♦ 


510 

210 

220 

230 


310 

320 


000 

330 

350 


CALL  USER 
CALL  SINDEX 
CALL  SYMBIN 
CALL  riLSET 

IFIIPRNT.EQ.O)  TYPE  500.NL.NP 

FORMAT!/, IX, 'ASSEMBLING  AND  ANNOTATING  IMAGES',//, 

5X , 15, '  LINES  BY', 15,'  PIXELS  TO  FILE  •ANIMG.DAT’ ' > 
IFUPP.NT.NE.O)  TYPE  501.NL.NP 

FORMAT!/, IX, 'ASSEMBLING  AND  ANNOTATING  IMAGES',//, 

SX ,  15 ,  '  LINES  BY*, 15,'  PIXELS  TO  FILE  •APRINT.DAT") 

JC0L»128 

IF(NP.LT.12«)  JCOL«NP 

JCOLlaJCOLtl 

JSYMP«1H* 

JSYMMslh- 

IF(IPRNT.NE.O)  •RITE  !4,510)  ! JSYMM , J*1 , JCOL) , JSYMP 
FORMAT! 1 HI »'♦',! 29 Al) 

DO  400  L*1 , NL 

DO  210  Jal,NP 
LINE! J)«0 

IFCKOMP.EQ.O)  GO  TO  230 
DO  220  J*1,NP 
LINE! J )*'377 

CONTINUE 

IF!N1MG.LE.0)  GO  TO  350 
DO  330  I>1,NIMG 
IFiL.LT, IL! I ) )  GO  TO  330 
IFU.GT.LLU))  GO  TO  330 
IU«lfl 
IN>1NP(1) 

READ  !1U,END>320)  ILTNP(J) , J»1 ,XN) 

JI«IP!I) 

JF«LP! I) 

JJ*JP!I) 

JC»IC!I) 

DO  310  JbJI, JF 
JJBJJ41 

lf(JC.NE.O)  LTMP! JJ )>,NOT,LTMP( JJ ) 

LINE! J )aLTMP! JJ) 

CONTINUE 
CO  TO  330 

CONTINUE 
CLOSE ! UN IT>IU) 

LL!I)>L*1 

LI«L-IL(I) 

KL(I)*LI 

LI»LItJL(I) 

TYPE  600,1, LI, JL(I) 

FORMAT!/, IX,'***  END  OF  FILE  ON  IMAGE', 12, 

ONLY', 15,'  LINES  (INCLUDING', IS, '  SKIPS)') 

CONTINUE 
CONTINUE 
CALL  TXTSET(L) 
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ft 
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ft 


ft 
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Annotation  and  laage  Asseablyt  TrantMAPS  7-5 


ANNOTC 


1 

IF(IPRNT.EO.O)  CO  TO  390 
DO  380  J«1 , JCOL 
LJ*LIN£(J) 

1FCLJ.LT. 0)  LJ«LJ4256 
LJ>LJ/324l 
L1NEC J)>1S¥H1 CLJ) 

LTMP(J)sistM2(LJ) 

380  CONTINUE 

LIN£(JC0L1)«1HI 

WRITE  (4,520)  CLINECJ) . Jrl , JCOL1) 

520  FORMAT  ( IX ,  'I *,129Al) 

WRITE  (4,530)  (LTMP( J) , J*1 , JCOL) 

530  FORMATOH4, 1X,I28A1) 

GO  TO  400 

390  WRITE  (4)  (LINEC J) , J«1 ,MP) 

400  CONTINUE 

IF ( IPRNT . NE. 0 )  ■RITE  (4,540)  ( JSYMN, J>1 , JCOL) , J5TMP 
540  FORMATUX,  *4*,129A1) 

ENDFILE  4 

IF(NlMG.GE.l)  CL0SE(UN)T«2) 

IF(N1MG.GE.2)  CL0SE(UNITa3) 

CL0SE(UNIT>4) 

END 
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Annotation  and  Image  Assembly!  TrensNAPS  7-6  ANNOTE/USER 


SUBROUTINE  USER 

Purposes  User  interaction  tor  image  assembly 
Output  iaage  specification 

Node:  raster  iaage  file  or  llne«printer  pseudo-iaage 
Frame  size  and  background  dlrect/coapieaent  select 
Embedded  image  specification 
Imaoe  count  (0  1  2) 

Iaage  description 

File  identification 

Input  positioning  (line  &  piial  skips) 

Size  (line  6  pixel  counts) 

Output  location  (starting  line  and  pixel) 
Direct/coaplsaent  select 
Embedded  annotation 

message  count  (0>20) 
message  description 

message  overlap  assessment  and  editing 
CALLed  from:  annQTE 
CALLS:  OVKLAP'UNSG 


common  /outing/  NL,np,Konp 

common  /EmBimG/  NinG,FILNAN(10,2),JL(2),JP(2),KL(2),KP(2), 

♦  INP(2),IL(2),LL(2),IP(2),LP(2),1C(2) 

BYTE  F1LNAN 

COmmON  /ENBNSG/  NmSC,NSGO(20),mSGN(20).mSCm(20),mi6(20), 

♦  NSGLC20) ,mSGP(20) . NSGCC20) t TEXT (50* 20) 

BYTE  TEXT 

common  /nbouno/  miL(20),mLL(20),niP(20),NLP(20) 
common  /mooEU4/  iprnt 
DimENSIOn  nANET(lO) 

BYTE  NAnET'NAnCl 
EQUIVALENCE  ( NANE1 » NAME! ( 1 ) ) 

OINEMSION  LBLO(4),NSGT(50) 

BYTE  LBLO.NSGT 
DATA  NPIX.IPIX/4000,4000/ 

C  — —  •  —  —  —  —  —  —  — —  — — — —  DefBUltS  —  ♦ 
OATA  IPRNT/0/  ! 

DATA  NL.NP/800,800/  i 

DATA  KONP/0/  1 

OATA  NING/O/  1 

OATA  riLNAN/IHF,lNO»lHR,2eiHO,lM2,4eorlHrrlMO,iNR,2eiHO,lH3,4eO/  1 
DATA  JL,JP,KL,KP,IL'IP'IC/2*0,2*0, 2*480,2*624, 2*1, 2*1, 2*0/  1 

DATA  INP,LL,LP/2*624,2*0,2S0/  1 

DATA  NN3G/0/  ! 

OATA  M8<>0»  N8GN , NBCN , N8GL  >  NSGP , MSCC/20*! * 20*0«20*1 ,40*1  * 20*0/  i 

DATA  TEXT/250eiH  ,250»JH  ,250*1H  ,2S0*1H  /  ! 

C—— - - - - - - 

DATA  NIL,  NLL,  NIP,  NLP/20M,  20*0, 20*1, 20*0/ 

DATA  LBLO/1HT , 1HB, 1HL, 1HR/ 
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ANNOTC/USCP 


900 
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♦ 
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100 


910 
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920 


530 


535 
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c  »M 
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540 
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110 

550 

4 
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rm  5oo 

rORNATC/,11, 40C1H*) ,/, II ,'4'.1IX, II, 

*•  IMAGE  ASSEMBLY  AMD  ANNOTATION  NOOULE 

/, II, '•', ill, '•',/, IX, 40C1H*)) 

Output  laaoa  Specification 

CONTINUE 

i,XT>lHA 

irCIPRNT.NE.O)  LIT-1HP 
TYPE  510, LIT 

PORNATC//.3X, 'OUTPUT  IMAGE  SPECIFICATIONS', //,9X, 

'OUTPUT  ritC  MODE! ',//,•!, 

*R  -  GRAY  SCALE  RASTER  IMAGE  FILE  *ANINC.DAT",/,SX, 

'P  -  LINE  PRINTER  PSEUDO  IMAGE  PILE  •APR1NT.DAT"',//, 

51, 'NODE?  IK  P)  *«A1 > 

ACCEPT  l.LIT 

lrULIT.AO.lrtR).OR.(LlI.CO.lHr))  IPRMTaO 
lrCUIT.EO.lHPI.OR.CLIT.EO.lHa))  IPRNTal 
TTPE  520, NL 

PORN AT (/, SI, 'NUMBER  OP  tIMEST*,X5,5X,*(/  ■  NO  CNM6) ') 

ACCEPT  «,NL 

NPIXoNPlX 

irilPRnl.ME.0)  NPXXO120 
irCNP.Cl.MPIX)  NpaNPIX 
TYPE  530, MPIX, Mp 

P0RMAT(5X, 'NUMBER  Or  PIXELS?  CUP  TO  '»X4,')',XS,«X,'(/  •  NO  CHN6)') 
ACCEPT  a.MP 

irCMP.GT.MPll)  NpaNPIX 

LXTM1HN 

IFCKONP.NE.O)  LlTalHT 
TTPE  535. LIT 

F0KMATC5X, 'COMPLEMENT  BACXGROUHD?  CT  OR  R)  '.All 
ACCEPT  1 .LIT 

IFCCLIT.EU.lrtN). OR. CLIT.EO.lHn))  KONPNO 
IF ( (L1T.CU. 1HY ) .OR. CLIT.EO. IHy) )  KONPal 

Eaaaddtd  laaga  specifications 

TYPE  540, MING 

FORMAT (//, 3X , 'EMBEDDED  IMAGES I ' , / / , IX , 

'NUMBER  OP  IMAGES?  CO  1  2) ' , 13, SX. ' (/  a  NO  CMN6) ' ) 

ACCEPT  a.NING 

irCMIMG.LT.O)  ringbo 
irCMlNQ.GT.2)  NXNCa? 

IPCNIMC.EO.O)  GO  TO  200 
DO  ISO  lal.NIMG 

TTPE  550,1,  CPILNAMC  J.D.ual  ,10) 

PORK AT CSX, 'IMAGE', 12, 't *,//,7l, 

'riLENAME?  CUP  TO  9  CHARACTERS)  ',10AD 
ACCEPT  1, MAMET 
F0RMATC50A1) 

irCNAMEl.CO.lH  )  60  TO  140 
XrCNAMCl.CO.lHF)  GO  TO  140 

irCCMAMCl.CC. IMA). ARD.CNAREt.LE. IMS))  GO  TO  120 
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M«OK/«KI 


5*0 

tao 


no 

140 

S?0 


500 


5*0 


*00 


*10 


*20 


*10 


150 


00  1)0  0 
oilnaou 
irouMCT 
IO(OAMCT 

iru.te. 

ioipiloa 

CONTINUE 

continue 

T»PC  570 
rORN*T(7 
ACCEPT  • 
TYPE  500 
oo*nat(7 
'</  • 
ACCEPT  • 


TYPE  5*0 
0000*717 
ACCEPT  • 


TYPE  *00 
POPNATl 7 
ACCEPY  • 

lNPtl)oJ 

TYPE  *10 
OOKNATC  7 
'(/  ■ 
ACCEPT  • 


LL(1)*1L 

TYPE  *20 
0000 AT (7 
*(/  « 
ACCEPT  • 


LPd)«IP 
LITolNO 
IPOC(l) 
TYPE  t)0 
0000*7(7 
ACCEPT  1 
IOC (LIT* 
IF ((LIT. 
C00T1MUC 


YPE  5*0 

OOMAT(  Ilf  *•••  01LEMAOI  0(1*7 
60  TO  110 
1.10 

1 )»0A«lT( J) 

d).LE.lM  )  OIL*AO(J. t )*0 
Ji.lQ.lH/)  PtLOAOl J.l >o0 
)  60  10  1)0 

(U-l.l).EO.O)  F1LO*0(J,1)«0 


IT*  LETTEA*) 


JUl) 

,**K1P  LIME*  1070  INPUT  1NA6CT*,15,SX,*(/  •  *0  CHOC)*) 
JLU) 

iPlk.jPd) 

,'HIF  PIXEL*  10 TO  INPUT  I0A6E1  (<* , 14. * )* ,IS,»X, 

0  CHAO)*) 

JP(I) 

0(JP(1).6E.1P1I)  JP(I)o|PIX-t 
0(KL(1).6T.*L)  ELUlONL 
OL.KL(l) 

,'OUOMfc*  00  LlOEAl  (UP  TO  *,14,*)*.t*,SX.*(/  •  *0  CHOC)*) 
KL(I) 

0(»L(1).6T.*L)  KL(I)«NL 
AlPaop 

ToO«m*-JP(l) 

O(ATOP.LT.OAIP)  NAXPoETOP 
ri*p(i).cT.**xp)  EptnoRAip 
OAXP.KPd) 

.'NUOftCN  00  PIXEL*!  (UP  TP  *«14, *)*,!*, 61,* (/  •  *0  CHOC)*) 
AP(  1 1 

P(KP(I).6T.0AXP)  KP(l)o«AXP 
(1)«KP(1) 

LU«NL«1*NL(1) 

1  LO.ILd) 

.'*1*07)06  LINE!  (RAN6E  1  -* . 14 . * ) * , I*, SI, 

0  CHOC)*) 

1L(1) 

OdL(I).LT.t)  IL(I)*I 
O(lLd).CT.lLU)  lL(l)olLU 
1)«AL(1)*1 
PU«0P«1»KP(1) 

IPU.IP(I) 

'•TA0T10C  PIXEL!  (DANCE  I  •*,!«,*)*, I*, 4X. 

0  CHOC)*) 
lPd) 

OdP(l).LT.l)  lP(l)oi 
rdP(i).CT.iPu)  iPd)oiPu 
l)«EP(l)*t 


NE.O)  L1T>1NY 
LIT 

,'COOPLEOEOT  loiCEY  (Y  ON  ■)  *, 

LIT 

0.lNO).0«.(LlT.E0.1Nn))  !C(l)oO 
O.lriT).OB.(LIT.CO.lHy))  1C(1)0! 


At) 
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e 

c  •••  mum  imuirn  mdiinum 
c 

am  corn  am 

flK  m.MW 

*M  roiMti/y,ii,*mfNn  Maonfioii,.//,ii, 

«  'wmi  or  mihwh  to  •  himmi.m/  •  oo  cmn 
uctn  «,um 

triMM.LT**>  UHM 
triMK.CT.Hl  MtHH 
ir(MK.K.I)  CO  TO  HC 

oo  Jar  mi, mm 

irtar.co.tt  so  to  nr 
nn  cm 

cm  roM*Tt//.ta,*M«  uac  rta  tun 

ITMMOU) 

<IC*  CM 

IMMCCUt.M.t)  JC*t*C 

tm  CM,i,UUi(ITI,UCC(c).CICMC),aMO(C|.X. 

«  (TClTII.ai.lU.CT) 

ccr  ro»MTcu.ia.ic.rt.ta.*i*.at».ia.ri.aa.rr«ii 
irCMI4.C»t.6T.«U  00  TO  >10 
irt«M’t*i.6T.»rj  eo  to  nr 

TIM  CTO,* 
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ccctrr  i, ut 

irubtT.M.iHit.Mo.tktT.aiK.iorn  oo  to  ttr 
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aar  coctiim 

ur  tm  cm 

oo  art  mi,«*k 
ITMHM*) 

irc»T.0T.ti  oo  to  art 
im  ccc.i 
oo  to  art 
art  itMtoomi 

JC*lN 

trcMoctMi.M.n  x*t«c 

tm  Mt.o.LMomt.Mmcai.Moum.Mortoi.oc* 

♦  ItltTII.O.Iil.lT) 

art  coat tare 
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WIWINN 
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•if  •  W  (Mti'i 
Nttfl  *.l 
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tuumuN 
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nfuf* 
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im  M,*a.**.*fCM«i 
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MOtf  M 

mh# 
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UVHM 
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MHf  I. Ml 

tMllH4l.IMIJI.IU14l.MMI  «MMM 
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•  %MM 

•'•MM 
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«  *,MM 
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HlMMlll4*.lV|  M  I*  IN 
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t*M*Mtiif«i 

l*«MI*ll*>.*t.ll  MMllMU 
tUIIMlMMIlK 
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wi»  n*i 

•*f*  UtMMMHI.M.HM.M.ItM.II.U.N.K.M.N.M.M, 
lit 

I.  t. ».«. I*. It. U.M.M.U.U. I*. 19, 

II. M.tt.li.lMt.tMt.tt.M.tMl.tl.tHt.M.tHt.tl.HM.M 

n»a» 

l»HMtM9.«l  MU  tl* 
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KM9t49.ll  MNtM 
M  •••  MI.H 
tWWWtMt 
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lit 
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IlIJil.U.tl  NtOIH 
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M  II#  4M.JII 
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caniMC 
•»  to  14# 

im  im.i.4 

(0T/IM  #T  Ml#  UMMII 
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COVtlMC 

imiMT.ll.lt  #0  TV  IM 
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ANNOTE/TXTSET 


SUBROUTINE  TXTAET(L) 

Nrpoiti  Aot  annotation  lint  itgunti  tor  all  aessages  active  on  lino  L 
Loop  on  ■oataaaa 

•ranch  on  orientation  (T,B  vs  l.R) 

Identity  Ayabol  Nap  iinas  or  coiuans  to  extract 
Extract  Syapol  Nap  iinas  or  coiuans 
•asaapia  lines  or  coiuans  to  rewired  syabol  sice 
Transfer  Message  segaent  to  output  line  butter 

CALLed  treat  ANNOTt 

CALLS t  INDEX 4 . Li NCAA , CLNNS4 . RANPL i , RAN PL 2 . RANPL) , R8NPL4 


CONNOO  /EM0MA6/  NMAC,nsCO(20J,NACN(20),NACN(20),N1*<20), 
NA6L<20),NA6P<20),MS6C<20),TEXm0,20) 
im  TEXT 

CONNOO  /MBOURD/  M1L(20) .NLL120)  «NIP(20) ,NLP(20) 

COM *OX  /0UTL1N/  LINE (4000) 
llti  LINE 

COMMON  /INCH AC/  LT«P(4000) 

•VTE  LtNP 

COMMON  /LCLMAC/  ■T.NL.NL4,ML4(2)*KT.L4T(1»2).CHAR(A4) 

•rrc  Cham 

1MNMA6.E0.0)  60  TO  »10 
DO  *90  Mai.MMAO 
RTMMACalP) 

iriMT.LE.O)  60  TO  »00 
LPIaL-HlL(M) 
lP(Lfl.LT.a)  60  TO  »00 
LPLMMLL(M)-t 
IMLTL.LT.O)  60  TO  *00 
ITaPMO(M) 

NfUMAOMtM) 

■Xe*l4(Mi 

J1MM1PIM) 

•ILMMLPIM) 

DO  110  JaJl.JL 
LtMPUiao 

irut.ot.i)  60  TO  >00 
MLMLPlat 

1MIT.E0.2)  0L*LPL*1 
CALL  1N0ES4 
00  2eO  «M|(ar 

oo  210  j«i,m 

CNAROlaQ 

lMaL4.ta.0l  60  TO  220 
•mtxTts.N) 

CALL  L1MEA4 

IMNT.tU.ll  CALL  RONPLI 
IMmt.em.2)  CALL  R0MPL2 
IMMT.sa. I)  CALL  RONPLI 
IMaf. to. 4)  CALL  R0MPL4 
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220 


230 

240 

290 

200 

300 


310 


320 


330 

340 

390 

400 


410 

420 

430 

900 

910 


KXs(K-l)*HX 

irUT.EO.2)  CO  TO  230 

IPT*JI«KX 

ZOCal 

GO  TO  240 

IPTaJL-KX 

IOCa-1 

DO  290  J«1,RX 

LTMPdPT)aCHAR(J) 

IPTaXPTdNC 

CONTINUE 
CO  TO  400 
CONTINUE 

NCaLFL 

irilT.E0.4)  NCaLri 
KaMC/NX 
Rb*RCd-K*AX 
Rahtl 

CALL  1NDCX4 

DO  310  Jal.NX 
CHAR( J)aO 

IFCNL4.EQ.0)  CO  TO  320 
KTaTEXT(K,N) 

CALL  CLHNS4 

iriNT.EO.n  CALL  RSMPL1 
IFIRT.EU.2)  CALL  RENPL2 
IFlNI.Eu.3)  CALL  RSNPL3 
ir(RT.E0.4)  CALL  RSMPL4 
irm.to.o  go  to  330 

IPTaJl 
INC«1 
GO  TO  340 
IPTaJL 
INCa-1 

DO  390  Jal , MX 

LTNPdPT)aCHAR(J) 

IPTalPTtINC 

CONTINUE 

iriNSGCOO.EO.O)  GO  TO  420 
00  410  JajlfJL 
LTRP(J)a.NOT.LTNPCJ) 
DO  430  JaJl,JL 
L1NE(J)«LTRPCJ) 


CONTINUE 

RETURN 

END 
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SUBROUTINE  INDEX* 

Purpose:  Determine  Symbol  Nap  lines  or  columns  to  be  extracted 
N*  -  Number  of  llnes/columns  for  given 
message  line,  symbol  size 
L*  -  index  of  first  ilne/column  to  be  extracted 
from  Symbol  Nap 

CALUed  from:  TXTSET 


COMMON  /LCLMSG/  NT,NL,NL4,Nt,4  (2)  ,KT,L4T(  3, 2)  ,CHAR(64) 

BYTE  CHAR 

DIMENSION  N4(64,4),L4(64,4) 

BYTE  N4.L4 

DATA  N4/2*0, 12*2,2*0,48*0,  4*0,24*2,4*0,12*0, 

4  6*0, 1,2, 1,1, 2, 1,1, 2, 1,1, 2, 1,1, 2, 1,1, 2, 1,1, 2, 1,1, 2, 1,1, 2,1, 

4  1,2,1,1,2,1,1,2,1,6*0,16*0,  8*0,48*1 , 8*0/ 

DATA  L4/0, 0,2, 6, 10, 14, 18, 22, 26, 10, 14, 38, 42, 46, 0,0, 48*0, 

4  4*0,1,1,5,7,9,11,13,15,17,19,21,21,25,27,29,11,31,15,17,39, 

4  41,43,45,47,4*0,32*0,  6*0,1,2,4,5,6,8,9,10,12,13,14,16,17,18, 

4  20,21,22,24,25,26,28,29,30,12,13,34,36,37,38,40.41,42, 

4  44,45,46,48,6*0,16*0,  8*0,1,2,3,4.5,6,7,8,9,10,11,12,13,14, 

4  15,16,17,18,19,20,21,22,23,24,25.26,27,28.29,30,31,32,33,34, 

4  35,36,37,36,39,40,41,42,43,44,45,46,47,48,8*0/ 

N(i4*N4(NL,MTl 
IFCNU4.E0.0)  CO  TO  120 
M,4«L4CML,NT)-1 
DO  110  J*1 , N04 
110  NL4(J)>KL44J 

120  RETURN 

END 
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SUBROUTINE  LINES4 

Purpose:  Extract  lint(s)  Iron  syaboi  Nap  (3  uords/Ilne) 
CALLed  Croai  txtset 


CONNON  /LCUNSG/  NT, NL , NL4,N04< 2 ) ,KT,L4T(3 , 2) ,CHAR(*4) 
BYTE  CHAR 

CONNON  /SYNBOL/  ISYNB(3 , 48 , 40) 

DO  120  Jsl,NL4 
Kti4*NI,4(d) 

00  110  JJbl ,3 
110  1>4T(  JJ,  J)alSYNB(  JJ,Kl<4,KT) 

120  CONTINUE 
RETURN 
END 


uuuuu 
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SUBROUTINE  CLMNS4 

Pur  pom  t  Extract  coiuond)  iron  syaooX  Nap  (3  oords/coluan) 
CALLod  front  TXTSET 


CONNON  /LCLNSfi/  NT,NL,NL4,HL412) ,KT.L4T(3,2) ,CHAR(«4) 

BYTE  CHAR 

COMMON  /SYMBOL/  ISYMB< 3 ,4B ,60) 

DIMENSION  JJT(48),JKT(48) 

BYTE  JJT, JKT 

DATA  J0T/lO*l, 16*2, 16*3/ 

DATA  JKT/-15,-14,-13,-12,-U,-10,-9,-S,-7,-6,-5,-4,-3,-2,-l,0, 

♦  -IS, -14, -13, -12, -11, -10, -9, -9, -7, -6, -5, -4, -3, -2, -1,0, 

♦  -15, -14, -13, -12, -11, -10, -9, -9,-7, -6, -5, -4, -3, -2, -1,0/ 
DO  130  Jsl,NL4 

JL4*NL4(J) 

JJMJJTIJL4) 

JJSSJKTUL4) 

K  1,4*0 

00  120  JJ*1 ,3 

N««0 

DO  110  JJP*1 ,16 
KL4*KL4*1 

ITS*I8YMB(  JJN,Kli4,KT) 

JTSsJJS 

Kfc*llSHFT(ITS.JTS).AND.*l 

IT8*NB 

JT8*16-JJP 

NnsNN.OR .IISHFTC ITS, JTS) 


110 

CONTINUE 

L4T(JJ,J)*NM 

120 

CONTINUE 

130 

CONTINUE 

RETURN 

END 

annotation  ana  lnogo  Antikiyi  frtMMM  7»2I 


aoHorc/Mnm 


auoaouTioc  rempu 

Par  poms  Roaaapio  4b  ayaool  Mao  to  ti  ayoaol  llM 


ayaool  Nop 
4b4  CPU 


cabboa  front  rxrscT 


a  a  c  o 
c  P  6  N 
nib 
prop 


Roaoopio  |  a  (p.or. R). ana. (6. or. J) 
Plaol 


COMMON  /bCbM*6/  «T,Nb,Nb4,Nb4(2),KT'b4T( J,2),CNaR(»4) 

RVTC  CHAM 

JCMR*2 

00  120  JJni.i 
b4Tlnb4T( JJ. 1 ) 
b4T2*b4T ( J J . 2 ) 
lT««b4T2 
«ITE«1 

b4f«b4Tl .OR . II5HPT ( 1 TO , JTR ) 

ITS>b4Tl 

L4mL4r.AMo.(ii8HrT(iT5,jra).oa.b4i2) 

•iao-14 

00  110  JPnl . 4 
JCHftn JCrtR* 1 

xra*b4 r 
j ianj* 

BB»U*MrT(ITS,JT5).AMD.-> 
ir(NB.NE.O)  CHAR(jCHR)n"J77 

CONTINUE 

RETURN 

END 
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UMtlttM  MK  lH««  UlHtlyl  TtMlUN  M4 


luen/iMH) 


WMMITlIt  UIN.I 

Nr>«Hi  li  lyiM)  *•»  to  2s  syooot  liu 


Oyooei  Moo 
4x4  eon 


nee 

t  f  6  N  Mloa»U  OX 

uii  Pitots  n 

HOOP 


•  o  I.OM.I 
I  o  e.ON.D 
t  O  l,OM,k 

S  o  k. 000.0 


CIUN  trooi  TlTOIT 


COMMON  ZkCkO 106/  MT.Nk.Mk4.Mk4<2),KT'k4T(),2>.CNAt(04) 
Site  CMOS 

If ( (Nk.AOO.*! l.CQ.O)  60  TO  110 

00X10*104210 

00X20*21042 

60  TO  120 

110  00X10*21042 

N0K2o*104210 
120  JCMM4 

DO  140  22ol.) 

L4TloL41(JJ,l) 

k4T2ok4T(22,2> 

IT0*k4Tl 

JTO-1 

b401oll0MfT(lT0f JTO) «*M0.k4T2 
IT0OU4T2 

k402«k4T 1 .400.1 10HP T (IT0,JT0> 
k4Po(oOHl. 400.6401). 00. IOOX2.400.k402> 

20o»19 

00  110  JPol.O 
JCHNOJCMP*! 
lT0*k4f 
2TS*20 

00*11 OHfT ( 1T0 . JTO ) . 400. * 1 
If (NM.HC.O)  CNAS(2CNft)o*)77 
20*20*2 


1)0 

140 


C0NT1NUK 

MKTUMO 

COD 


tMMUtlM 


iMf*  MimtVI  TMMUM  !•« 


ttWK/Mtfil 


NTHWI  Ml 


im  am) 


)•  4l  lytMl  MV  I*  )l  IfBM)  BlM 


4a 4  call 


*  •  C  • 
tni 
Nil. 
■  404 


MltMU  Mt 
MUll 

m 


a  *  a 

•  •  0.8T.C 

«  ■  • 

•  •  8.8T.I 

«  •  (r,M,ii,M4.u.«rWi 

•  •  i.avti 
t  •  « 

«  •  a.ar.o 
tar 


(*UM  fraai  T1T8CT 


coaaoa  /UMM/  aT.aa.*M,aMU)llf,MtOit)(CaM(M) 

•m  cau 

OIMCMIOa  Mf(ll) 

DATA  JAT/-l»,-14.-l»,-li,-18.-i,-7,-8,-4,-l,->,4/ 
JCaBaA 

DO  «44  AKl.) 

MIUMYlMil) 
ir(M4.M.I)  80  TO  118 
lTAa|4Tl 
AMI 

D4raA4TI  .0D.  ( 1 1MTTI  m*m>  .  ADO.  >41184) 

80  TO  )>« 

UTMMTIM.l) 

M0aMfl.0li.L4T> 

1T8SL4TI 

AMI 

L48afc4T1.08.H*8fT(lT8»JTt) 

1T88L4T1 

MMMa.M».(lIMni|TI.AI).0a,l4n) 
L4ra(L4O.Aa0« >114811) .08. (L48.AD8«>4SI84) 

90  1)8  jral.IT 

XHMAM«I 

JMJU(A) 

ITAaUr 

jT|ajl 

80alItomtT8»4T8  )*AD0.*l 
fr(88.aA.8)  C8AAfX0«)a*>TT 
C08TI88C 

COST! 888 


1 1 1-153 


I 


—Ml—  KM  I—  *•— V'  Tf—IIN 


—TIM  IMM 


i  m—u  I*  if— i 

—  NHtH 


OUM  fV— I  TaTMT 


Mf  (•  to  —  IIM 


CO—  /UUIto  l4TCI.lt. cs- 

om  COM 


•ft  IH  Mil.) 

MT— TU4.lt 
M— IT 

•0  II*  JNI.II 
XMWC«t«l 

it*— r 

jlfajl 

HallMTUTI.JTIMN.'l 
IIIM.H.I)  CUMXa*)**ltt 


com 
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